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SECTION  1 

INTRODUCTION 

Bolted  joints  art  a  prime  means  of  load  tranafar  between 
structural  parts  in  aircraft.  Compared  to  other  joining  methods 
(bonding,  welding,  etc.),  mechanical  fastening  ie  more  reliable, 
with  a  potential  for  improved  structural  efficiency, 
maintainability  and  cost  effectiveness.  However,  bolted  joints  are 
a  source  of  stress  concentration  and  could  precipitate  structural 
failures  if  they  are  designed  improperly. 


Prior  to  the  initiation  of  this  Northrop/AFWAL  program, 
no  analysis  was  available  to  be  used  as  an  exclusive  design  tool 
for  boltad  parts,  especially  if  they  were  laminated  composites. 
Consequently,  their  design  has  hitherto  been  based  on  extensive 
testing,  empirical  data  and  approximate  analyses.  The  analysis 
developed  in  this  Northrop/AFtfAL  program  eliminates  the  need  for 
extensive  testing  and  provides  a  tool  for  the  rapid  evaluation  of  a 
bolted  joint  concept.  If  the  structural  part  is  to  be  fabricated 
using  a  characterized  material,  it  eliminates  the  need  for 
experimental  information. 

In  the  following  sub-sections,  the  scope  of  this  design 
guide  is  stated,  sample  bolted  concepts  are  presented,  criteria  for 
the  design  of  bolted  joints  in  composite  structures  are  discussed, 
the  proposed  design  procedure  is  described,  the  analytical  and 
experimental  requirements  for  the  design  procedure  are  outlined, 
and  its  current  restrictions  are  mentioned.  In  Section  2,  general 
guidelines  for  the  design  of  a  bolted  joint  in  composite  structures 
are  presented,  along  with  summary  statements  on  the  effects  of 
critical  joint  parameters.  Section  3  p.'nsents  the  computer  codes 
developed  in  this  program  for  the  strength  analyses  of  single  and 
multiple  fastener  joints  in  composites  (SASCJ  and  SAMCJ, 
respectively) .  Section  4  demonstrated  the  use  of  the  developed 
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analysis  in  predicting  the  strength  of  a  realistic  structural 
element. 


1 . 1  Scope  of  tne  Design  Guide 

This  design  guide  summarizes  the  effects  of  critical 
parameters  on  the  strength  and  lifetime  of  bolted  joints  in 
composite  structures ,  and  presents  general  design  guidelines.  It 
also  describes  a  test-independent  analytical  procedure  for  the 
strength  evaluation  of  a  bolted  concept,  based  on  the  analyses 
developed  in  this  program.  The  reader  is  familarized  with  the 
computer  codas  (SASCJ  and  SAMCJ)  that  perform  these  analyses,  and 
an  application  to  a  realistic  structural  bolted  joint  is 
demonstrated.  This  design  guide  will  enable  one  to  perform  a  rapid 
analytical  evaluation  of  many  joint  configurations, and  to  eelect  an 
efficient  bolting  concept.  The  described  computer  codec  are 
currently  restricted  to  uniaxial  loading,  conventionally  used 
fastener  spacing  and  protruding  head  fasteners. 

1.2  Sample  Joint  Configurations 

Figure  1  presents  six  compos it e- to-met a 1  bolted  joint 
configurations  used  in  the  F/A-18A  aircraft  wing  (Reference  1) . 
Figures  2  and  3  present  joint  configurations  used  in  a  typical 
fuselage  structure  (Reference  2).  A  skin-to-root  fitting  bolted 
joint  in  the  F-20  horizontal  stabilizer  ia  shown  in  Figure  4.  Many 
bolted  joint  concepts  have  been  studied  recently  ea  potential 
alternative  joining  concepts  for  the  F/A-18A  wing  root  section  arid 
the  F/A-18A  vertical  tail  root  section  (Figures  5  end  6, 
respectively) .  The  sample  bolted  configurations  in  Figures  1  to  6 
illuatrate  the  possible  variety  in  this  joining  concept. 

1.3  Overview  of  Design  Methodology 

There  are  many  variables  in  the  design  of  a  bolted  joint 
in  composite  structures.  TheBS  include  the  geometry  and  the 
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In  the  F/A-18A  Aircraft  Wing  (Reference  1). 


Figure  3.  Bolted  Joint  Concepts  for  Coapo&ite  Fuselage  Structures  (Reference  2). 


Sk.in-co-Rt.ot  Fitting  Joint  in  the 
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Alternative  Bolted  Joint  Concept  Evaluated  fcr  the  F/A-18A  Wing  Root  Section 
(Reference  l:  Concluded). 


material  propertied  of  the  bolted  parts,  the  size  and  arrangement 
of  the  fastenors,  the  fastener  material  properties  and  torque, 
applied  loading  and  the  load  transfer  mechanism  (single  versus 
double  shear),  etc.  The  design  of  a  bolted  joint  involves  e 
parametric  study  of  tne  effects  of  the  above  variables  on  ths  joint 
efficiency,  for  a  specified  loading  condition.  A  preliminary 
analysis  of  a  structural  component,  baaed  on  conventional 
assumptions,  yields  the  general  biaxial  loading  transferred  at  the 
joint  location  (see  Figure  7) .  The  design  procedure  recommended  in 
this  guide  assumes  a  predominantly  uniaxial  loading  at  the  joint 
location. 

The  dsaign  of  a  uniaxially  leaded  joint  in  composite 
structures  may  be  performed  using  ths  analyses  davslopsd  in  this 
Northrop/ afwal  program,  section  3  describee  the  ues  of  the  SASCJ 
and  the  SAMCJ  computer  codas  for  ths  strength  prediction  of  single 
and  multiple  fastener  joints  in  composites,  respectively.  Ths 
SASCJ  cods  predicts  ths  strength  of  joints  when  a  single  fastener 
transfers  the  applied  load  between  the  bolted  plates.  This 
analysis  accounts  for  material  nonlinearity  in  the  bolted  plates, 
ths  non-uniform  fastener  load  distribution  in  the  thickness 
direction  of  ths  bolted  plates,  and  tha  progression  of  ply-level 
failures  based  an  a  choice  among  a  few  failure  criteria.  The  SAMCJ 
code  predicts  ths  strength  of  plates  bolted  together  by  one  or  many 
fasteners.  It  computos  ths  magnitude  and  orientation  of  the  lead 
at  every  fastener  location,  the  applied  load  level  for  averaged 
stress  components  to  reach  critical  levels  at  fastener  and  cut-out 
locations,  the  failura  valua  of  tha  applied  load,  tha  failura 
location  and  ths  failure  mode  (nst  section,  shear-out  or  bearing) . 
Failura  predictions  are  made  at  the  laminate  level  using  average 
stress  failure  criteria. 

The  proposed  deuign  procedure  involves  ths  un*  of  the 
developed  analyses  to  evaluate  the  effect  of  joint  variables  on 
joint  efficiency.  If  the  bolted  plates  are  rabricatsd  using 
characterized  materials,  the  joint  design  is  tastad-indepondent. 


Figure  7.  Overview  of  the  Strength  Analysis  of  Bolted  Structures 


Candidate  bolted  joint  concepts  are  selected  following  the  general 
guidelines  outlined  in  Section  2.  The  fastener  size  and 
arrangement  (spacing  between. fasteners) ,  the  geometry  of  the  bolted 
plates,  the  load  transfer  mechanism,  etc.  are  varied  without 
violating  the  constraints  imposed  by  the  structural  application. 

The  strength  and  durability  of  each  bolted  joint  concept,  along 
with  its  impact  on  manufacturing  coats  and  maintenance,  are 
evaluated  to  establish  joint  efficiency.  An  efficient  bolted  joint 
concept  can  thus  be  designed  using  a  purely  analytical  tool  on  a. 
finite  number  of  concepts  that  are  selected  in  accordance  with 
established  guidelines. 

1.4  Analytical  Requirements 

The  design  cf  a  bolted  joint  for  composite  structures 
requires  the  analyses  devaloped  in  this  Northrop/ AFWAL  program 
(References  6  and  7) .  The  analysis  of  plates  bolted  together  by  a 
single  fastener  may  be  performed  using  the  SASCJ  (Strength  Analysis 
of  single  Fastener  composite  Joints)  or  the  SAMCJ  (Strength 
Analysis  of  Multiple  Fastener  Composite  Joints)  computer  code. 
Plates  bolted  together  by  many  fasteners  are  analyzed  ueing  SAMCJ 
computer  coda.  Section  3  presents  a  brief  description  of  these 
analyses.  The  reader  is  referred  to  References  6  and  7  for  further 
details. 


1 . 5  Test  Requirements 

A  tsst-independent,  purely  analytical  design  tool  has 
oesn  developed  to  design  a  bolted  joint  for  compoeite  structures 
that  are  fabricated  using  charactsrized  materials.  Tht  engineering 
properties  (Young's  moduli  in  the  fiber  and  transverse  directions, 
major  Poisson's  ratio  and  the  shear  modulus  in  the  fiber  coordinate 
system) ,  the  strengths  or  failure  strains  (under  tension, 
compression  and  shsar) ,  and  tho  failure  parameters  for  the  assumed 
failure  criteria  (characteristic  distances  for  nat  section,  shear- 
out  and  bearing  failure  predictions  using  ths  average  stress 


failure  criteria,  for  example)  are  known  for  a  characterized 
composite  material  (lamina).  Teats  required  to  obtain  the  above 
material  properties  must  be  performed  on  a  new  (uncharacterizad) 
material  system,  prior  to  designing  bolted  joints  for  structural 
parts  made  from  this  material.  Whan  previously  characterized 
materials  are  used  in  the  bolted  plates,  the  teat  requirements  are 
nil  for  the  design  of  an  efficient  bolted  joint  concept. 

1.6  Current  Restrictions 

The  design  of  bolted  joints  in  composite  structures  is 
influenced  by  the  current  restrictions  in  the  developed  analytical 
tools.  The  primary  restrictions  are  listed  below: 

(1)  The  developed  strength  analyses  (SASCJ  and  SAMCJ 
computer  codes)  do  not  account  for  countersunk  fast oner 
affects. 

(2)  SASCJ  and  SAMCJ  contain  a  stress  analysis  that 
approximates  the  fastener/plate  contact  problem  by  an 
assumed  radial  stress  distribution. 

(3)  SASCJ  AND  SAMCJ  are  restricted  to  a  uniaxial  applied 
loading,  in  tension  or  in  compression. 

(4)  The  prediction  of  the  durability  of  a  joint  is 
restricted  to  the  incorporation  of  the  bearing  stress  at 
critical  fastener  locations  into  experimentally  obtained 
curves  for  joint  life. 

(5)  SAMCJ'  restricts  the  user  to  rectangular  element 
geometries  and  currently  used  fastener  spacing  and 
arrangement. 

Despite  the  above  restrictions,  the  developed  analyses 
and  the  proposed  design  procedure  mark  a  significant  improvement 


over  the  state-of-the-art  with  respect  to  the  design  and  analysis 
of  bolted  joints  in  composite  structures. 


SECTION  2 

GENERAL  DESIGN  GUIDELINES  AND  JOINT  VARIABLES 

Tha  design  of  botad  joints  in  composite  structures 
involves  tha  definition  of  many  variables.  The  major  design 
considerations  are  listed  belov: 

(a)  The  loads  that  must  be  transferred  from  one  part  to  another. 

(b)  The  load  transfer  location  in  tha  structure. 

(c)  Geometric  constraints,  if  any,  at  the  load  transfer  location. 

(d)  Fastener  typo,  size  and  arrangement. 

(e)  The  environmental  range  the  joint  will  be  exposed  to. 

(f)  The  effect  of  the  joint  concept  on  structural  efficiency  and 
reliability. 

The  following  sub-sections  discuss  the  primary  variables 
that  influence  the  design  of  boated  joints  in  composite  structures. 
Design  guidelines  corresponding  to  the  discueeed  joint  parameters 
are  highlighted  within  the  sub-sections. 

2.1  Joint  Location  in  the  Structure 

The  location  of  the  joint  in  a  structure  influences  the 
selection  of  the  joint  variables  significantly.  Design  guidelines 
pertaining  to  selected  joint  locations  are  presented  below: 

(a)  When  aerodynamic  surfaces  in  an  aircraft  structure  are  joined 
to  substructural  parts,  or  segments  of  a  surface  aro  joined 
together,  the  requirement  of  a  smooth  outer  moldlina  should  not  be 
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violated.  The  use  of  protruding  head  fasteners  on  such  surfaces ,  or 
the  presence  of  any  other  geooetric  discontinuity  (Btep)  at  the 
joint  location,  will  adversely  affect  the  lift  distribution  on  these 
surfaces  and  their  aerodynamic  performance. 


On  aerodynamic  surfaces,  fasteners  must  be 
installed  to  be  flush  with  the  surface,  without 
exposed  fastener  heads,  and  joined  members  must 
retain  a  smooth  outer  moldline. 


(1) 


(b)  When  structural  members  are  joined  together  in  fuel- 
containment  areas,  measures  must  be  taken  to  preclude  leakage  of  the 
fuel  ar.d  service- related  hazards,  The  use  of  metallic  fasteners  on 
the  outer  surface,  for  instance,  introduce  the  threat  of  arcing 
within  the  fuel  cell  in  the  event  of  a  lightning  strike.  In 
designing  joints  for  these  locations,  special  consideration  must  be 
given  to  the  mentioned  sealing  requirements. 


In  fuel  containment  areas,  joints  must  be  sealed 
to  be  leak-proof.  Fasteners  must  also  be  sealed 
to  prevent  arcing  within  the  fuel  call  in  the 
event  of  «  lightening  strike. 


(2) 


(c)  when  bolted  joints  are  designed  for  structural  regions  with 
limited  or  restricted  access,  special  fastener  types  have  to  ba 
used. 


In  areas  of  restricted  accessibility,  blind 
fasteners  must  be  used.  (3) 


(d)  when  a  laminated  part  is  bolted  to  a  metallic  substructure, 
the  threat  of  joint  corrosion  must  be  considered. 


In  compos ite-to-metal  joint  locations,  corrosion 
barriers  like  fiberglass  layers  must  be  used. 


(4) 
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2 . 2  Joint,  Conf lguratlona 

Selected  joint  configurations  are  significantly 
influenced  by  their  structural  locations.  Figures  1  to  6  present 
typical  structural  joint  configurations  in  current  aircraft.  Figure 
S  presents  the  localized  structural  joint  configurations  along  with 
their  equivalent  configurations  that  are  analyzed.  The 
configurations  that  transfer  loads  in  single  shear  introduce 
localized  bending  effects  that  could  adversely  affect  the  strength 
and  durability  of  the  joint.  Stepped  lap  and  scarf  configurations 
involve  thickness  changes  that  provide  an  additional  design  variable 

(layup)  in  bolted  laminates. 

2.3  Joint  Loading 

Structural  joints  are  designed  to  be  effsotivs  over 
their  design  lifetime,  when  eubj anted  to  the  anticipated  design 
spectrum  fatigue  loading.  The  durability  considerations  for 
structural  joints  are  discussed  in  Section  4.  This  design  guide 
emphasizes  the  strength  analysis  of  a  bolted  joint,  and  presents 
computer  codes  that  perform  it.  Ths  reader  must  supplement  the 
joint  design  based  on  a  strength  analysis  with  e  durability  check, 
using  information  similar  to  that  presented  in  Section  2.9.  The 
effect  of  joint  loading  is  discussed  further  below,  at  throe  levels 
—  structural,  among  fastener  rows,  and  at  an  isolated  faatenar 
location. 

2.3.1  Joint  Loads  at  the  Structural  Level 

Joint  loads  at  the  structural  level  fall  into  two  basic 
categories  —  inplane  loads  and  cut-of-plana  or  bending  loads. 

Figure  9  presents  some  possible  inplane  load  conditions  in  typical 
wing  skin-to -substructure  attachments.  The  analyses  developed  in 
this  Northrop/AFWAL  program,  and  described  in -Section  3,  aasume  that 
the  joint  at  each  location  is  subjected  to  a  predominant 
unidirectional  load.  Figure  9  illustratee  that  this  assumption  will 
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not  b«  valid  at  a on®  locations. 


Figure  10  presents  sample  situations  where  considerable 
out-of-plane  (bending}  loads  are  introduced  at  the  joint  location. 
This  is  inhsrent  in  single  shear  load  transfer  configurations  (soe 
Figure  8} ,  and  adversely  affects  joint  strength  and  durability.  If 
one  of  the  bolted  plates  is  very  stiff  compared  to  the  other,  the 
deleterious  effeots  of  load  eccentricity  in  a  eingle  shear 
configuration  are  minimised.  Zn  double-shear  load  transfer 
configurations  (see  Figure  8) ,  the  out-of -plane  loads  are  reduced  to 
a  negligible  level. 


(5) 


(«) 


Assuming  a  unidirectional  applied  lead,  the  fasteners  in 
a  row  are  arranged  perpendicular  to  the  load  direction.  Joint 
configurations  affect  the  distribution  of  the  applied  load  among  the 
various  rows  of  fasteners  in  a  joint,  and  the  distribution  of  the 
row-wise  load  fraction  among  che  fasteners  in  any  row.  Hitherto,  the 
fasteners  in  a  row  have  been  assumed  to  carry  equal  loads,  and  only 
the  row-wise  load  distribution  has  been  analytically  predicted.  The 
SAMCJ  coda  developed  in  this  Northrop/AFWAL  program  overcomes  this 
limitation,  and  predicts  the  two-dimensional  load  distribution 
(magnitude  and  orientation  of  fastener  loads  at  all  locations)  for  a 
selacte..4  fastener  nattern. 


Single  -  shear  load  transfer  joint  configurations 
introduce  out-of-plane  (bending)  loads  that  could 
significantly  reduce  the  strength  of  the  joint, 
when  one  of  the  bolted  members  is  vsry  stiff,  ths 
sffset  of  ths  out-of-plans  loads  is  minimlzsd. 


Ooubls-shsar  load  transfsr  joint  configurations 
ssssntially  introduce  inplans  loads  in  ths  boltsd 
platss. 


2.1.2  Load  Distribution  Among  Rows  of  Fasteners 


:o 


B.  OUT-OP-PLANE  JOINT  LOAD  DUE  TO  LOAD  PATH  ECCENTRICITY 


Figure  1 


Sample  Joint  Configurations  that  Introduce  Significant 
Out-of-Plane  Loads  at  the  Joint  Location. 


Figure  11  presents  the  load  dlotributiona  for  two  and 
five  fastener,  double  shear  joint  configurations  tested  in  this 
program  (References  7  and  8) .  The  bolted  plates  in  Figure  11  vers 
uniform  in  thickness.  Figure  12  illustrates  how  the  load 
distribution  amopg  four  rows  of  fasteners  can  be  varied  by  changing 
the  joint  configuration.  In  the  strongest  configuration  (4),  a 
combination  of  tapering  and  reinforcing  of  the  jplice  plates 
minimizes  the  bearing  load  where  the  by-pass  load  is  the  largest 
(station  1) ,  and  maximizss  the  bearing  load  where  there  ia  no  by¬ 
pass  load  (station  4) .  The  plate  width-to-bolt  diameter  ratio  (W/o) 
is  5  at  station  1.  and  4  at  stations  2  and  3.  A  larger  bolt  is  used 
at  station  4  (w/D-3) .  This  results  in  a  reduction  of  the  bearing 
stresses  at  stations  2  to  4,  and  the  strongest  configuration  (see 
References  9  end  10} . 

In  bolted  metallic  plates ,  the  fastener  load 
distribution  ia  similar  to  those  shown  in  Figure  11  for  low  values 
of  the  applied  load.  But,  as  the  applied  joint  load  inoreasos 
toward  the  failure  value,  yielding  will  occur  at  peak  fastener  load 
locations.  This  causes  the  incremental  applied  load  to  be  carried 
by  tha  remaining  fasteners,  generally  resulting  in  a  uniform 
fastener  load  distribution  near  failure.  For  the  five  fastener 
configuration  in  Figure  11,  for  example,  every  fastener  will  carry 
one-fifth  of  tha  applied  load  at  failure.  However,  laminated  plates 
generally  exhibit  a  linear  elastic  and  brittle  behavior,  with 
negligible  ductility  or  yielding.  The  non-uniform  load  distribution 
among  rows  of  fastener?  in  composite  laminates,  therefore,  remains 
non-uniform  at  failure.  This  reduces  the  failure  load  level  if  the 
peaks  in  the  load  distribution  are  not  accompanied  by  appropriate 
thickness  tapering  and  other  changes  in  the  joint  configuration. 
Joint  efficiency  is  determined  by  the  overall  load-carrying 
capability  of  the  joint. 


The  load  distribution  among  rows  of  fasteners  in 
a  bolted  laminate  generally  remains  non-uniform 
at  the  failure  load  level,  in  contrast  to  what  is 
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FASTENER  CONFIGURATION 


Bolt  Number 

Note:  Double-shear  load  transfer  batwssn  50/40/10,  AS1/3501-6 
graphic a/ apoxy  lamlnata  and  aluminum  using  5/10-inch 
diameter,  protruding  head  steal  fasteners  torqued  to 
100  in-lb  ;  static  tension;  RTD. 

Figure  11.  Fastener  Load  Distribution  in  the  Laminated  Plate 
for  Two  Double-Shear  Configurations 
(References  7,  8). 
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figure  12.  Effect  of  Joint  Configuration  on  Fastener 
Load  Distribution  (Reference  9). 


assumed  in  boltad  ductile  metals.  This  adversely 
influences  the  failure  load  for  bolted  laminates, 
unless  thickness  tapairing  or  other  configuration 
changes  are  introduced. 


(7) 


2.3.3  Bearing  and  Bv-Pass  Loads  at  an  Isolated 

Fastener  Location 

Figure  13  illustrates  the  bearing  and  by-pass  loads,  and 
the  interaction  between  them,  at  an  isolated  fastener  location  in  a 
boltad  laminate.  The  failure  of  the  bolted  plate  is  generally 
assumed  to  coincide  with  the  failure  at  the  most  critical  fastener 
location.  The  identification  of  the  moat  critical  fastener  location 
requires  a  knowledge  of  the  load  distribution  among  the  fasteners, 
and  an  understanding  of  the  interaction  between  the  bearing  and  by¬ 
pass  loads  at  a  fastener  location  (Figure  13) . 

In  ductile  metals,  minimal  interaction  is  assumed 
between  the  bearing  load  and  the  by-pass  load.  However,  in 
composites,  a  significant  interaction  has  been  demonstrated  between 
the  two  loads  under  tensile  loading  (sea  Figure  13).  Only  a 
minimal  interaction  is  observed  under  compression  (see  Figure  13) . 
The  open  hole  and  bearing  strengths  of  laminates  (under  tension  and 
compression)  are  dependant  on  tho  laminate  layup.  The  bearing 
straus  at  failure  ia  also  dependent  on  the  edge  distance  (geometry) 
of  the  bolted  laminate  when  its  layup  contains  more  than  40%  of  0* 
degree  plies. 


(8) 


(9) 
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Figure  13. 


Interaction  Between  bearing  and  by-Pass  loads  at  a  Fjstener 
Locat ion. 


Failure  Modes  in  Bolted  Laminates 


Bolted  laminates  exhibit  one  or  more  among  a  variety  of 
failure  modes,  depending  on  their  layup  and  geometry,  the  fastener 
type  and  the  loading  configuration.  Figure  14  presents  the  basic  ! 

I  . 

failure  modes  observed  in  bolted  laminatoo  and  possible  fastener  or  i 
fastener-induced  failures.  In  the  design  of  bolted  laminates  using 
th*  SAMCJ  computer  code,  only  the  net  section,  shear-out  and  bearing 
modes  of  failures  in  the  laminate  are  considered,  and  fastener- 
related  failures  are  assumed  to  be  praclud  a  priori.  Net  section  ;  C  : 
and  shear-out  failures  lead  to  cacastrophic  joint  failures,  while 
bearing  failure  is  generally  non-catastrophic.  Critical,  highly- 
loaded  structural  joints  should,  therefore,  be  designed  to  fail  in  a 
bearing  mode. 


Ensuring  that  fastener-related  failures  are 
predicted,  highly-loaded  structural  joints  must 
be  designed  to  fail  in  a  bearing  mode  to  avoid 
the  catastrophic  failures  induced  by  net  section 
and  shear-out  mdes  of  failure. 


(10) 


2.5  Fastener  Type,  Material  and  Installation  Variables 


In  selecting  fasteners  for  bolted  composite  structures, 
many  variables  have  to  be  considered.  These  are  briefly  discussed 
below. 


2.5.1  Fastener  Type 

Fasteners  are  available  in  different  forms  for  different 
applications,  and  ars  broadly  classified  as  protruding  head 
fasteners  or  countersunk  (flush  head)  fasteners.  Countersunk 
fasteners  generally  have  a  100  degree  head  angle,  and  are  referred 
to  as  tension  head  or  shear  head  fasteners  based  on  the  countersunk 
depth.  Special  fastener  types  include  hi-lok,  big  foot,  Jo-bolt, 
Eddie-bolt,  k-Lobe,  composite  fasteners,  etc.  (Reference  11) . 
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The  joint  .location  influences  the  selected  fastener  typo 
and  introduces  sealing  requirements  (see  Section  2.1).  The  three 
guidelines  corresponding  to  this  are  repeated  below: 

Flush  head  (countersunk)  fasteners  should  be  used 
on  aerodynamic  surfaces  to  maintain  contour 
smoothness.  (1) 

In  fuel  containment  areas,  the  fastener  locations 
must  be  sealed  to  be  leak-proof  and  to  prevent 
arcing  in  the  fuel  tell  in  the  event  of  a 
lightning  strike.  (2) 

In  areas  of  restricted  accessibility,  blind 
fastensrs  must  be  used.  (3) 

Tension  head  countersunk  fasteners  have  a  larger 
countersunk  depth  than  shear  head  countersunk  fasteners.  Tension 
head  fasteners,  therefore,  rest  over  a  larger  area  of  the  bolted 
plate,  and  carry  the  load  primarily  in  tension  along  the  fastener 
axis.  Shear  head  fasteners  have  a  smaller  countersunk  depth,  and 
carry  the  load  primarily  in  shear  over  the  fastener  cross-section, 
consequently,  tension  head  fasteners  are  capable  of  carrying  larger 
loads  than  shear  head  fasteners.  But,  when  the  countersunk  depth 
exceeds  approximately  70%  of  the  bolted  plate  thickness,  the 
fastener  effectiveness  is  reduced  due  to  the  local  "knife  edge" 
effect,  influencing  the  selection  of  the  fastener  type. 


Tension  head  fasteners  are  preferred  over  shear 
head  fasteners  when  the  countersunk  depth  Is 
below  approximately  70%  of  the  bolted  plate 
thickness. 
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The  main  considerations  in  the  selection  of  the  fastener 
material  are  its  compatibility  with  the  bolted  plate  material  and 
its  mechanical  properties.  Galvanic  corrosion  is  a  problem  when 
steel  or  aluminum  is  used  adjacent  to  graphite/epoxy  composites, 
especially  in  a  salt  spray  atmosphere  (see  Table  1,  Figure  15  and 
Reference  12).  Titanium  does  not  corrode  when  it  is  in  contact  with 
graphite/epoxy  composites.  The  compatibility  of  other  materials 
with  graphite/epoxy  composites  is  rated  in  Table  1.  Consequently, 
titanium  fasteners  are  preferred  for  use  in  bolted  composite 
structures.  Also,  a  corrosion  barrier  is  generally  introduced 
between  bolted  composite  and  matallic  parts,  if  the  metal  is  atael 
or  aluminum  (soo  Figure  15) . 


Titanium  fasteners 

are 

preferred  for 

use 

with 

graphite-reinforced 

composites.  Steel 

and 

aluminum  fasteners 

are 

not  recommended 

for 

use 

with  thsse  composites 

due  to  their 

corrosion 

susceptibility. 

2.5.3  Fastener  Size 

The  fastener  size  is  generally  selected  to  preclude 
excessive  fastener  banding  affects  that  could  rcducs  its  load 
transfer  capability  and  induce  premature  fastener  failure.  As  a 
general  rule,  the  ratio  of  the  fastener  diameter  (D)  to  the  bolted 
plate  thickness  (t)  should  be  greater  than  1  (see  Figure  16). 


The  fastener  diameter  must  be  larger  than  the 
thickness  of  either  bolted  plate. 


(13) 


2.5.4  Fastener  Fit  and  Hole  Quality 

Structural  parts  that  are  mechanically  fastened  together 
are  drilled  in  accordance  with  established  process  specifications. 
Nevertheless,  the  presence  of  flaws  at  fastener  location?,  is 
commonplace.  These  flaws  include  improper  fastener  seating, 
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TAiLE  1.  SATANIC  COMPATIBILITY  OF  FASTENER  MATERIALS  WITH 
COMPOSITES  (REFERENCE  12). 


Fastener  Material 


Compatibility  with  Graphite/' Epoxy 
Composites 


Titanium  and  its  alloys 


Very  Cood 


MP-35N,  I'.iCO  000 
(Nickel,  Cobolt  alloys) 


Good 


A236,  PH13-3MO 
(Molybdenum  alloys) 

Monel 

Low  Alloy  Steel 
Silver  Plate,  Chrom.  Plate 
Cadmium  or  Zinc  Plate 
Aluminum  of  Magnesium  Alloys 


Acceptable 

Marginal 
Not  Compatible 

Adequate  with/A286,  PH 1 3  13-8MU 
Not  Compatible 
Not  Compatible 


CORROSION 

BARRIER 


ALUMINUM 


LV — sealant 

■  a.n 3  i  i  . 


GRAPHITE  EPOXY 


Figure  15.  Galvanic  Compatibility  and  Corrosion 
Prevent  ion. 
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Effect  of  Fastecer  Size  on  the  Lead  Distribution 
(Reference  6). 


cratering  of  the  hole  boundary,  broken  and  separated  fibers  at  tha 
drill  exit  side,  delaminations  near  the  exit  surface,  and  a  slight 
tilt  (<10  degraos)  in  the  hole  axirn  away  from  tha  normal  to  the 
bolted  rlato  (Reference  13).  In  L«i.  Terence  fit  of  fastened  will 
also  affect  hale  quality  and  influence  the  efficiency  of  the  joint. 
Tha  effects  of  interference  fits  and  fastener  hole  flaws  were 
studied  in  Reference  13  (see  Table  2).  A  summary  of  the  results  is 
presented  below: 


(14) 


(15) 


(16) 


(17) 


2.5.5  Fartener  Torque-Up 

Static  and  fatigue  testa  on  composite-to-reetal  joints 
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Temperature,  Dry;  RTU  -  P.oom  Temperature,  Uut;2S0l 
■  0.86T  Moisture  by  Height. 


vora  conducted  in  Reference  13,  varyii.g  th«  faatoner  tcrqua-up  value 
from  C  in-lb  to  150  in-lba.  Fastener  torquo-up  significantly 
improved  the  static  otrertgth  of  the  joint  (15  to  30%),  and  its 
fatigue  life  at  a  selected  stress  level,  similar  results  w«re 
observed  in  Reference  14.  Under  fatigue  loading,  the  torque-up 
inhibits  tha  initial  growth  of  local  failures  in  the  joint,  and  the 
results  in  a  more  abrupt  fatigue  failure  due  to  excessive  hole 
elongation  than  a  joint  with  no  applied  torque. 


(13) 


Fastonor  torquo-up  increases  tha  3tatic  strength 
of  a  joint  and  its  fatigue  life  at  a  selected 
stress  level. 


2 . 6  Soltad  Lanlnato  Fropertias 


The  basic  material  and  its  layup  (stacking  sequence)  in 
bolted  laainatss  influence  the  joint  performance  considerably,  tfhen 
graphite/ epoxy  laminates  ara  bolted  to  metallic  substructures, 
'galvanic  corrosion  must  be  addressed  (see  Figure  15  and  Table  1) . 

For  example,  a  corrosion  barrier  like  a  glass/ epoxy  layer  must  ba 
used  betwoen  graphite-reinforced  composites  and  aluminum 
substructures . 


When  graphite-reinforced  composites  are  bolted  to 
metallic  substructures,  corrosion  barriers  must 
be  introduced  if  the  metal  ia  not  compatible  with 
the  composite  material  (aaa  Table  1). 


(19) 


Tha  boltad  laminata  layup  in  ganarally  denoted  by  the 
percantagea  of  plias  with  fibar  orientations  of  0,  +  or  -45  and  90 
degraes,  with  respect  to  the  primary  loading  diraotion,  for  most 
structural  laminates.  Tha  anvalopa  within  which  a  bearing  failure 
mode  and  the  maximum  bearing  strength  are  realised  is  shown  in 
Figure  17.  Within  this  envelops,  the  strength  is  independent  of  the 
actual  stacking  sequence.  This  assumas  a  laminate  width-to-fastener 
diameter  ratio  (W/D)  of  at  least  4,  and  an  edge  distance  (E)  of  at 
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-90’  PLIES  (PERCENT) 

(All  FIURI  IN  O'.  ♦«**.  to*.  OR  -«*•  DIRECTION) 


AREA  OF  PREFERRED  FIBER  PATTERNS 
r  (MAXIMUM  OF  ] 7. 5  PERCENT  IN  ANY  ONE 
/  CIRICflON.  MINIMUM  OF  US  PERCENT) 


o4  plies 

(PERCENT) 


QUASI-ISOTROPIC  PATTERN 


NOTE:  LKJMTIT  IOAMO  MMMUM4RUOI 
ITR'JCTURII  TIRO  TO  INCOMPAM  A 
ORIATIR  RAROI  OP  FIRIR  PATTERN* 
THAN  MDICATID  PICAUII  OP  THI 
UNAVAM.ARIUTT  OF  THIRHIR  PUIS. 


30  40  40  10 

*48*  PLIES  (PERCENT) 


Figure  17.  Thi  Envelop  of  Bolted  Laminate  Layup*  for  Realizing  a 
Bearing  Mode  of  Failure  and  the  Maximum  Bearing 
Strength  (Reference  10). 


least  30.  Whan  the  percentage  of  0  degree  plieo  exceeds  40,  a 
shoar-out  node  of  failure  is  introduced,  reducing  the  bearing  stress 
value  at  failure.  Section  2.7  presents  the  effects  of  fastener 
spacing  and  the  geometry  of  a  bolted  plate  oa  its  strength. 


The  bearing  strength  of  a  laminate  is  maximum 
when  its  layup  contains  less  than  10%  each  of  0, 
+  or  -45  and  90  degree  plies.  The  corresponding 
failure  occurs  in  a  bearing  mode. 


(20) 


In  addition,  the  individual  plies  must  be  arranged  such 
that  adjacent  plies  have  different  fiber  orientations.  If  the 
stacking  sequence  contains  groups  of  plies  with  identical  fiber 
orientations,  delaaination-ralated  failures  will  occur  and  reduce 
the  joint  strength. 


Plies  with  different  floor  orientations  should  be 
interspersed  within  the  laminate,  to  the  maximum 
possible  extant,  to  minimize  delamination-induced 
strength  losses.  Group  of  idantical  plies  should 
not  exceed  0.02  inch  in  thickness. 


(21) 


2.7  Fastener  Spacing  and  Arrangement 

The  geometrical  parameters  that  dafina  the  fastener 
spacing  and  the  fastener  arrangement  in  a  boltad  plate  are 
illustrated  in  Figure  18.  E  is  the  edge  distance,  SL  and  ST  are  the 
fastener  spacinge  in  tha  loading  and  transverse  directions,  *r.d  w  - 
ST  for  a  single  fastener  joint.  The  effects  of  these  geometrical 
parameters  were  studied  in  References  8,  13  and  14.  Ths  results  are 
summarized  below: 


(22) 
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PREDOMINANT  LOAD  DIRECTION 


figure  18.  Oeonetrical  Parameters  for  a  Bolted  Plate. 
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(23) 


(24) 


(25) 


(26) 


2 . 0  Joint  Tailoring  for  Maximum  Efficiency 

Tha  design  of  a  joint  *hould  achieve  the  following 
objectives  to  be  considered  efficient:  (1)  It  should  be  capable  of 
transferring  the  design  ultimate  loada  without  failing  any  member: 
(2)  It  should  possess  the  design  life  when  subjected  to  the  design 
spectrum  fatigue  loadir.q;  (3)  It  should  be  the  least  weight  design 
that  meats  (1)  and  (2);  and  (4)  The  complexity  of  the  design  concept 
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significantly  when  E/D  is  reduced  below  3  (sea 
Figure  20) .  A  bearing  mode  of  failure  is 
observed  only  when  E/D>4,  and  tha  percentage  of  0 
degree  plies  is  less  than  40.  K  shear-out  mode 
of  failure  results  when  e/D<3,  or  when  the 
percentage  of  0  degree  plies  ia  >40. 


The  bearing  stress  at  failure  decreases 
significantly  when  S  /D  (W/d  for  a  single- 
fastener  joint)  is  reduced  below  4  (see  Figure 
21).  When  E/D>3,  W/D>4,  and  the  percentage  of  0 
degree  plies  is  below  40,  a  bearing  mode  of 
failure  occurs.  When  W/D<4,  a  net  section 
failure  occurs  in  the  same  laminate. 


Whan  the  fastener  spacing  in  tha  loading 
direction  (SL/D)  is  daoraased  below  4,  the  joint 
strength  decreases  due  to  stress  concentration 
interaction  (see  Figure  22).  The  sane  offset  is 
observed  with  ST/D  (see  Figure  21). 


In  summary,  ensure  that  D/t>l,  E/D>3,  W/D 
(St/D)>4,  Sl/d»4,  and  the  percentage  of  plies  in 

any  orientation  Is  <40,  to  achieve  a  bearing 
failure  mods  and  to  realize  the  maximum  joint 
strength. 
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^  failure 
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('.Ups/  In. ) 


0  12  3  4  5 


Note:  Cooposotc-to-nr.tal,  two  faittners-in-a-row  Joint; 

20-ply,  50/40/10  layup;  AS1/3501-6  graphite/epoxy; 
0.31  in.  aluminum  plate,  single  ahear;  RTD;  static 
tenaion;  S  /OW/l>6;  protruding  head  steel  fastener; 
05/16  in.;  T"100  in-lhs. 


should  ba  controlled  to  aid  producibility  and  maintainability  of  the 
structural  joint. 

A  joint  can  ba  tailored  to  improve  its  efficiency.  For 
example,  whan  the  number  of  fastener  revs  (a  row  being  perpendicular 
to  the  primary  loading  direction)  is  increased,  the  peak  load 
fraction  is  generally  carried  by  the  innermost  or  outermost  fastener 
row  (see  Figures  11  and  12).  Xf  the  failure  mode  at  the  critical 
fastener  location  is  bearing  or  net  section,  the  thlcknees  and  vidth 
of  tho  bolted  plate  at  that  location  will  influence  the  joint 
failure  load.  In  an  afficient  design,  the  vidth  and  tha  thickness 
of  the  bolted  platee  will  be  tailored  such  that  every  fastener 
location  is  equally  critical  (see  Figure  51 .  The  peak  bearing 
stress  at  tha  design  ultimate  load  level  will  ba  .lowered  to  a  level 
that  ensures  a  minimal  bearing/by-pass  interaction,  if  possible  (see 
Figure  13) . 

dome  experimental  concepts  have  also  baen  demonstrated 
to  be  efficient  joint  tailoring  concepts,  despite  the  difficulty 
they  introduce  in  applying  tha  concept  at  the  production  level.  An 
example  is  shown  in  Figure  23,  where  the  0  degree  plies  in  the 
bolted  skin  are  replaced  by  +  and  -45  degree  plies  in  ths  joint 
region  (Reference  15) .  This  causss  a  smaller  fraction  of  the 
running  load  to  be  transferred  at  the  joint  location,  and  also 
increases  the  local  bearing  strength.  An  alternative,  equivalent 
concept  would  be  to  replace  the  etlffer  material  by  a  tougher 
material  at  tha  'joint  location.  For  example,  graphite/epoxy  plies 
can  be  replaced  by  aramid  fiber/epoxy  plies  at  the  joint  location, 
it  is  reiterated,  though,  that  these  validated  tailoring  concepts 
are  difficult  to  implement  in  a  production  environment. 


(27) 


The  geometry  of  bolted  laminates  must  be 
tailored,  in  the  width  and  thickness  directions, 
to  render  every  faatena?  location  equally 
critical. 
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TAILORED  BOLTED  JOINT 


CONVENTIONAL  BOLTED  JOINT 


2.9  Durability  Considerations 

The  design  of  a  bolted  joint  is  currently  based  on  an 
assumed  design  ultimate  load  lave}  and  a  static  strength  analysis 
(see  Section  3).  The  assumed  design  ultimate  load  level  should 
account  for  durability  considerations  also.  Generally,  irrespective 
of  the  static  failure  node,  a  bolted  joint  suffers  fatigue  failure 
via  excessive  hole  elongation  (bearing) .  This  possible  change  in 
the  failure  mode  from  the  static  loading  cane  to  tha  fatigue  loading 
case  has  bean  observed  by  many  in  tha  literature  (see  References  13 
and  14) . 

If  thn  joint  statically  fails  in  a  bearing  mode,  it 
could  suffer  prematura  excessive  hole  elongation  (fatigue  failure) 
when  subjected  to  the  spectrum  fatigue  loading.  Figures  24  and  25 
present  sample  constant  amplitude  fatigue  test  results  from 
Reference  14  for  a  fully  reversed  loading  case  (R— 1) .  Similar 
results  should  be  used  to  approximately  and  conservatively  estimate 
the  fatigue  life  of  a  joint  using  a  fatigue  analysis  (Miner's  rule, 
for  example) .  Based  on  the  fatigue  analysis,  the  bearing  stress  at 
the  critical  fastener  location  should  bs  designed  to  be  sufficiently 
lover  than  the  static  bearing  strength,  to  ensure  the  design  life  of 
the  joint.  The  final  joint  design,  therefore,  will  be  capable  of 
statically  transferring  the  design  ultiaato  load,  with  the  peak 
bearing  stress  value  ensuring  the  design  fatigue  life. 
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Figure  24.  Effect  of  Maxinua  Cyclic  Bearing  Stress  on  the  Number  of  K*-l  Fatigue 
Cycles  to  Cause  Specified  Bole  Elongations  in  a  Bolted  Laainate. 


SECTION  3 


STRENGTH  ANALYSIS  OF  BOLTED  COMPOSITE  STRUCTURES 

As  mentioned  In  Section  1.4,  two  computer  codes  were 
developed  in  this  Northrop/AFWAL  program  to  prediot  the  strength  of 
boleed  joints  containing  a  single  fastener  (SASCJ  and  SAMCJ)  or 
multiple  fasteners  (SAMCJ) .  Most  of  the  structural  joints  contain 
multiple  fasteners,  and  SAMCJ  is  adequate  for  the  design  of  these 
joints.  SAMCJ  is  also  capable  of  predicting  the  strength  of  single 
fastener  joints,  without  accounting  for  the  nonlinear  joint  load 
versus  deflection  behavior  introduced  by  ply  level  failures. 

However,  if  the  user  wishes  to  interrogate  sn  isolated  fastener 
location,  accounting  for  the  nonlinear  joint  behavior  due  to 
progressive  (two-stage)  ply  failures,  tho  SASCJ  code  is  useful.  The 
reader  is  referred  to  References  6  and  7  for  detailed  descriptions 
of  the  SASCJ  and  SAMCJ  analyses,  respectively. 

In  the  following  sub-sections,  brief  descriptions  of  the 
analyses  in  the  SASCJ  and  SAMCJ  computer  codes  are  presented,  along 
with  detailed  instructions  for  the  use  of  these  analytical  design 
tools. 


3.1  Description  of  SASCJ  Analysis 

A  two-dimensional  anisotropic  plate  analysis  that  accounts 
for  finite  plate  dimensions  (FIGEOM) ,  and  a  finite  difference 
fastener  analysis  (FDFA) ,  are  incorporated  into  a  progressiva 
failure  procedure  to  develop  a  strength  analysis  for  single 
fastener  joints  in  composite  structures  (SASCJ) .  An  isolated 
fastener  location  in  a  bolted  structures  (see  Figure  7)  is  primarily 
subjected  to  the  loading  shown  in  Figure  26.  The  general  bolt 
bearing/by-pass  situation  can  be  analyzed  as  a  superposition  of  an 
unloaded  hole  situation  and  a  fully  loaded  hole  situation  (see 
Figure  26) .  The  unloaded  hole  case  is  analyzed  using  the  two- 
dimensional  plate  analysis  (FIGEOM) ,  and  does  not  involve  the 
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Figure  26.  Schematic  Reproeantation  of  a  General  SlngJ a-Faetener 
Situation  aa  a  Supevpoeltion  of  Unloaded  and  Fully 
Loaded  Hole  Situationi. 
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fastener  analysis  (FDFA) .  The  fully-loaded  hole  situation  is 
analyzed  using  a  progressiva  failure  procadura  that  pradicts  local 
ply  failures  and  delaminations  until  the  bolted  plate  cannot  carry 
any  additional  applied  load.  The  employed  ply-failure  criteria  and 
the  delamination  criterion  are  discussed  in  Sections  3.1.3  and 
3.1.4. 

3.1.1  Strength  Analysis  Procedure  for  Fully-Loaded  Holes 

The  strength  of  laminates  with  fully  loaded  holes  is 
predicted  using  the  procadura  outlined  in  Figure  27.  A  two- 
dimensional  stress  analysis  (FXGEOM) ,  accounting  for  finite 
dimensions  of  the  bolted  plates,  is  initially  performed  on  each 
bolted  plate.  Computed  plate  stresses  are  used  to  calculate  the 
effective  moduli  of  the  various  ply  typss  in  sach  bolted  plate  (see 
Reference  6) .  The  inplane  strains  computed  by  ths  FIGEOM  cods  are 
used  to  obtain  the  strata  atata  in  each  ply.  The  ply  stresses 
around  the  hole  boundary  are  integrated  to  yield  the  bearing  load  in 
each  ply  (see  Reference  6).  The  inplane  stresses  in  each  ply,  per 
unit  bearing  load,  are  incorporated  into  selected  failure  criteria 
to  compute  the  ply  (bearing)  loads  corresponding  to  the  various 
inplane  failure  modes. 

The  effective  moduli  and  the  ply  bearing  loads 
corresponding  to  the  various  failure  modes,  for  all  the  plies  in 
each  bolted  plate,  are  incorporated  into  the  fastener  analysis.  The 
initial  fastener  analysis  on  the  undamaged  plates  computes  the 
distribution  of  the  applied  bearing  load  among  the  various  plies. 
Comparing  these  ply  loads  with  the  stored  failure  values  for  inplane 
ply  failures,  the  joint  load  corresponding  to  the  earliest  ply 
failure  Is  obtained.  The  fastener  analysis  also  computes 
approximate  shear  strain  values  at  the  intarfaoial  locations  between 
adjacent  plies.  Incorporating  these  into  an  interlaminar  failure 
criterion,  the  joint  load  cox*responding  to  the  earliest  interlaminar 
failure  (delamination)  is  obtained.  The  smaller  of  the  two  }oint 
loads,  corresponding  to  the  earliest  inplane  and  interlaminar 
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failures,  determines  the  first  failure  in  a  bolted  plate  and  the 
corresponding  joint  load  value. 

The  effective  moduli  of  the  damaged  plies  are  reset  to 
appropriately  represent  the  predicted  failure  modes.  The  revised 
moduli  are  incorporated  into  the  fastener  analysis,  and  the 
procedure  is  rspcated  to  predict  the  next  failure  mode  and  the 
corresponding  joint  load.  When  any  ply  is  predicted  to  fail 
totally,  the  analysis  computes  the  redistribution  of  the 
corresponding  joint  load  among  the  remaining  effective  plies,  and 
determines  if  any  other  concomitant  ply  failure  is  precipitated. 

This  process  is  repeated  until  one  of  the  bolted  plates  hecomos 
ineffective  in  transferring  the  applied  load  (joint  failure) . 

The  SASCJ  computer  code  is  rsstrioted  to  protruding  htad 
fasteners,  and  asoumes  that  fastener  failure  is  precluded.  However, 
when  a  countersink  fasts  isr  is  specified,  SASCJ  assumes  an 
appropriate  boundary  condition  at  ths  head  location,  and  expects  the 
user  to  input  an  equivalent  (larger)  uniform  fastener  diameter.  It 
can  analyze  any  combination  of  laminated  and  metallic  plates,  bolted 
together  in  a  ainol*-l«p  or  double-lap  configuration. 

3*1*2  Strength  Analysis  Procedure  for  Partially-Loaded  Holes 

A  general  fastennr  location  in  a  bolted  plato  transfers 
a  fraction  (a)  of  the  total  applied  load  via  the  fastener,  the 
remainder  (1-a;  being  by-passed  to  the  next  fastener  locution  (see 
Figures  7  and  26) .  In  this  case,  the  stress  stats  at  the  fastener 
location  is  computed  aa  a  superposition  of  tho  etrsss  state# 
corresponding  to  the  unloaded  and  fully-loaded  hole  situations. 
Figure  28,  for  example,  presents  a  schematic  representation  of  how 
the  averaged  stresses  are  obtained  to  predict  net  section,  shear-out 
and  bearing  failures  in  the  plies  using  average  otress  failure 
criteria.  For  a  unit  applied  load,  the  averaged  stresses  in  the 
laminate  with  an  unloaded  hole,  when  subjected  to  a  load  of  (1-n), 
and  the  averaged  stresses  in  the  laminate  with  a  fully  loaded  hole, 
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whan  subjected  to  a  load  o£  a,  are  computed  separately  and  added. 
Incorporating  the  combined  averaged  stresses  into  the  appropriate 
failure  criteria,  the  applied  load  corresponding  to  a  ply  failure  is 
computed. 

In  the  case  of  fully  loaded  holes,  progressive  failure 
prediction  involves  the  repetition  of  the  fastener  analysis  with 
revised  ply  properties  after  every  ply  failure.  The  two-dimensional 
analysis  (FIGEOM)  is  only  carried  out  once.  But,  in  the  case  of 
partially  loaded  holes,  a  ply  failure  will  affect  the  unloaded  and 
the  fully  loaded  hole  contributions  to  the  local  stresses.  Hence, 
progressive  failure  prediction  in  the  partially  loaded  case  involves 
TV-eating  FIGEOM  and  FDFA  analyses  after  total  ply  failures. 

3.1.3  Inplane  Failure  Criteria 

The  SASCJ  coda  permits  the  user  to  select  any  of  the 
following  five  failure  criteria  for  the  prediction  of  ply  failures 
based  on  inplane  stresses  and  stralnst  (1)  point  stress  failure 
criterion,  (2)  average  stress  failure  criterion,  (3)  maximum  (fiber 
directional)  strain  criterion,  (4)  Hoffman  crlteron,  and  (3)  Tsai- 
Hill  criterion.  The  first  two  criteria  predict  three  modes  of 
failure  in  each  ply— net  section,  shear-out  and  bearing.  The 
maximum  strain  criterion  predicts  ply  failure  based  on  fiber 
failure.  The  Hoffman  and  Tsai-Hlll  criteria  predict  ply  failure 
accounting  for  biaxial  stress  interaction  that  is  ignored  by  the 
first  thrae  criteria. 

The  point  stress  failure  criterion  predicts  net  section, 
shear-out  and  bearing  failures  when  the  appropriate  stress 
components  at  selected  locationo  attain  unnotched  specimen  failure 
values  (see  Figure  29).  a  .  a  and  a  .  „  are  called  characteristic 
distances.  When c  (0,  D  +  a  )  exceeds  the  unnotched  tensile  or 
compressive  strengtn  of  the  ply,  as  appropriate,  a'  net  section  ply 
failure  i3  predicted.  When  (D  +  a0brg'  ^  exceeds  the  unnotched 
compressive  strength  of  the  ply,  a  bearing  mode  of  ply  failure  is 


Figure  £3.  The  Characteristic  Distances  used  in  the  Point 
Stvess  Failure  Criteria 


Figure  30.  The  Characteristic  Distances  Used  in  the  Average  Stress 
Failure  Criteria. 


predicted.  Whan  rxy  (aJS0  ,  D/2)  exceeds  the  unnotched  ply  shear 
strength,  a  shear-out  node  of  ply  failura  i3  predicted.  The  avera< 
stress  failure  criterion  predicts  these  failures  based  on  averaged 
values  of  the  mentioned  stress  components  over  selected 
characteristic  distances  (don»  doso,  and  d0brg)  that  are  larger  in 
magnitu  a  compared  to  those  used  in  conjunction  with  the  point 
stress  criterion (sea  Figure  30) . 

Of  the  three  ply  failure  modes,  only  the  net  section 
mode  causes  the  ply  to  become  almost  ineffective  (total  failure). 
The  bearing  node  of  failure  causes  the  ply  to  suffer  a  reduction  i) 
its  effective  modulus  without  losing  its  load-carrying  capacity. 

The  shear-out  mode  of  failure  causes  a  ply  to  become  ineffective 
only  when  it  is  delaminated  from  the  adjacent  plies,  when  a  ply 
suffers  any  of  the  above  failures,  its  load  ve  -sus  dof lection 
response  is  at  the  knee  of  the  bilinear  representation  in  Figure  3: 
The  damaged  ply  can  carry  additional  load  until  total  ply  failure  ; 
precipitated.  The  SASCJ  computer  code  automatically  stores  the 
damage  state  in  every  ply  in  the  bolted  plates,  and  reassigns  valut 
for  ply  moduli  to  appropriately  represent  predicted  ply  failures, 
when  a  ply  suffers  total  failure,  its  modulus  is  set  equr.l  to  zero, 
and  the  redistribution  of  the  joint  load  among  the  remaining  plies 
is  computed.  A  typical  overall  load  versus  deflection  behavior  of 
the  joint  is  shown  ir»  Figure  32,  indicating  the  effects  of  local  ar 
total  ply  failures. 

The  maximum  strain  (fiber  directional),  Hoffman  and 
Tsai-Hill  criteria  are  applied  along  a  path  that  is  concentric  to 
the  fastener  hole,  at  a  characteristic  distance  (&0)  from  the  hole 
boundary  (see  Figure  33) .  The  location  along  this  path  where  the 
selected  criterion  is  satisfied  determines  the  failure  location. 
The  maximum  strain  criterion  predicts  fiber  failure  in  a  ply  (tota: 
ply  failure)  when  its  fiber  directional  strain  exceeds  the  failure 
values  (Cj“  ore^). 

The  Hoffman  failure  criterion,  based  or.  inplane  ply 


PLY  LOAD 


PLY  DISPLACEMENT,  u. 

Figure  31.  Bilinear  Eiaatic  Behavior  of  a  Ply. 
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Figure  33.  The  Characteristic  Distance  (aQ)  Defining  the 
Region  Where  the  Maximum  Strain,  Hoffman  or 
Hill  Criterion  is  ^plied. 
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stresses,  states  that  total  ply  fallurs  will  occur  when  th*  falluro 
index  (K)  in  thu  following  equation  reaches  a  value  of  unity: 
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In  the  above  equation,  <r :  ,  <r2  and  are  the  ply  etroeeee  in  tho 
fiber  coordinate  system,  X,  and  Xc  are  the  uniaxial  tensile  and 
compresaive  material  strengths  along  the  fiber  direction  (1),  vt  and 
Yc  are  the  uniaxial  tensile  and  oompressivo  material  strengths 
perpendicular  to  the  fiber  direction  (2) ,  and  S  is  the  material 
shear  strength  in  the  1-2  plane. 


In  the  SASCJ  code,  the  Hoffman  criterion  is  applied 
along  a  path  that  is  concentric  to  the  fastener  hole,  defined  by  the 
characteristic  distance  a0  (see  Figure  33).  At  selected  points 
along  this  path,  the  loll owing  expressions  for  the  fallurs  values  of 
the  ply  load  (iv)  are  computed: 
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c  -  -1,  and 

?i  -  ply  load  at  which  c^,  02  and  Cfe  are  computed 
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The  location  where  the  smallest  non-negative  value  for  P£  is 
computed  identifies  the  failure  initiation  point. 

The  Hoffman  criterion  predicts  total  ply  failure  and  the 
failure  location,  but  does  not  identify  the  mode  of  failure.  The 
failure  location,  though,  generally  indicates  the  possible  failure 
mode.  Referring  to  Figure  33,  if  failure  is  predicted  near  0-0*,  a 
bearing  mode  of  failure  is  suspected.  If  the  failure  location  is 
near  9 >90*,  a  net  section  mode  of  failure  is  suspeoted.  And, 
intermediate  values  of  9  indicate  a  shear-out  mode  of  failure.  The 
Tsai-Hill  criterion  can  b.i  obtained  from  the  Hoffman  criterion  by 
setting  X  t  >  Xc  and  Yc  ■  Yc  .  This  criterion,  therefore,  does  not 
account  for  different  strengths  under  tension  and  compression.  The 
ply  failure  load  (Pf)  in  this  case  is  computed  to  be 

3.1.4  Interlaminar  Failure  Criterion 

Delamination  between  plies  is  predicted  by  incorporatinc 
computed  shear  strains  at  the  interfacial  locations  into  a  maximum 
shear  strain  criterion.  At  the  interface  between  plies  i  and  j,  fot 
example,  the  shear  strain  is  computed  to  be: 


where  hQ  is  the  ply  thickness  in  the  plate  containing  plies  i  and  j. 
This  expression  for  the  shear  strain  is  approximate.  Plies  i  and  j 
are  assumed  to  delaminate  when  exceeds  a  failure  value.  The 

failure  value  for  YX1  is  determined  by  correlating  predictions  with 
observations  for  a  sample  test  case. 

3 . 2  SASCJ  Input  Description 

SASCJ  assumes  a  uniaxial  tonsile  or  compressive  load  to 
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be  applied  to  a  single  fastener  bolted  joint,  in  a  single  or  a 
double  shear  configuration  (sea  Figures  34  and  35) .  The  code 
requests  information  for  a  general  bearing/by-pass  situation.  If 
the  joint  is  a  symmetric  double  shear  configuration,  only  half  the 
joint  is  analyzed  (see  Figure  35).  For  example,  if  plate  2  in 
Figure  35  is  metallic,  the  input  thickness  should  be  half  the  actual 
value,  and  if  plate  2  is  a  laminate,  only  the  layup  from  the  surface 
to  its  midplana  should  be  input.  The  analysis  accounts  for  the 
joint  symmetry  through  appropriate  symmetry  conditions  at  the 
midplane  location  (see  Figure  35). 

A  sample  SASCJ  problem  is  now  presented  to  describe  the 
input  requirements  for  the  coda.  It  addresses  a  staol-to-composite 
joint  in  a  single  shear  configuration  (see  Figure  34) .  The  input  is 
requested  by  SASCJ  in  an  interactive  mode.  Figure  36  presents  the 
code  requests  and  the  user  replies  for  the  sample  joint.  Though  the 
information  in  Figure  36  is  self-explanatory,  a  description  of  the 
input  quantitas  is  pressntad  bslow. 

The  first  input  quantity  spscifies  that  ths  problem 
addresses  a  bearing/by-pass  situation  with  a  by-pass  ratio  of  0.99 
--nearly  an  open  hols  situation.  Ths  sscond  and  third  input 
quantities  specify  that  a  static  tansils  load  is  appliad  in  a  single 
shear  configuration,  subsequently,  the  two  bolted  plates  are 
specified  to  be  either  a  composite  laminate  or  a  metal.  If  the 
bolted  plate  is  a  laminate,  SASCJ  requests  the  user  to  specify  the 
number  of  plies  in  that  plate  (20).  Mote  again  that,  for  a  double 
shear  configuration,  only  half  the  thickness  of  ths  second  plate 
should  be  defined  (see  Figure  35) .  SASCJ  then  requests  the  user  to 
specify  the  thickness  of  the  metallic  plate  (0.25).  For  the 
laminated  plate,  SASCJ  requests,  in  sequence,  ths  average  cured  ply 
thickness  (0.006),  the  number  of  distinct  ply  orientations  (4), 
definition  of  tho  four  orientations  (0.0,  +45.0,  -45.0  and  90.0), 
and  the  laminate  stacking  sequence  —  [ (45/0/-45/0), /0/90]o .  SASCJ 
automatically  assumes  a  metallic  plate  to  be  divided  into  thirty 
identical  layers.  The  number  of  layers  in  a  laminate  is  controlled 
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I'iguri-  36.  Saapl e  SASCJ  Input 
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Figure  36.  Sample  SASCJ  Input 
(Coat laued) . 
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by  the  user.  In  Figure  36,  each  physical  ply  is  modeled  as  one 
layer.  For  this  sample  problem,  for  example,  the  user  could  also 
specify  each  physical  ply  to  be  divided  into  two  identical  plies,  by 
setting  the  number  of  plies  in  the  laminate  to  be  40,  the  cured  ply 
thickness  to  be  0.003  inch,  and  repeating  each  ply  orientation  in 
the  stacking  sequence  twice. 

Subsequent  to  the  above  information,  SASCJ  requasta  the 
material  properties  for  platas  1  and  2  (Young's  modulus  and 
Poisson's  ratio  for  a  metal,  and  Young's  modulus,  shear  modulus  and 
the  major  Poisson's  ratio  for  each  lamine,  in  the  fiber  coordinate 
system).  The  fastenor  modulus,  Poisson's  ratio,  diameter  and  head 
typo  (protruding  head  or  countersunk)  are  requested  next.  Following 
that,  the  geometry  of  tho  bolted  plates  is  defined  by  specifying  the 
coordinates  for  the  plate  corners,  assuming  that  the  origin  is 
located  at  the  center  of  the  fastener  hole. 

The  last  block  of  data  addresses  the  selected  failure 
criterion  and  the  corresponding  failure  parameters.  Zn  the  sample 
problem  in  Figure  36,  the  average  stress  failure  criteria  are 
selocted  for  failure  Drediction  (4).  The  characteristic  distances 
for  net  section,  bearing  and  shear-out  modes  of  failure  are  then 
specified  for  the  two  plates.  This  is  followed  by  the  unnotched 
strengths  for  the  two  plates  under  tension,  compression  and  inplane 
shear.  Next,  SASCJ  requests  the  parameters  that  define  the  bilinear 
material  behavior.  These  are  the  factors  that  define  the  modulus 
change  after  initial  failure,  and  the  ratio  of  the  ultimate  ply 
failure  load  to  the  initial  ply  failure  load.  Different  factors  may 
be  (.pacified  for  the  three  failure  modes,  Finally,  the  approximate 
ultimate  shear  strain  value  is  requested  for  delamination 
prediction.  A  large  value  is  generally  specified  for  a  metallic 
plate,  to  precludo  the  prediction  of  delaminatione  that  are  not 
applicable  to  these  materials. 


For  the  sample  problem  defined  in  Figure  36,  SASCJ 
provides  the  output  shown  in  Figure  37.  The  input  data  for  the 
bolted  plates  is  initially  reproduced  for  user  verification. 
Subsequently,  the  sequence  of  failures  in  the  bolted  laminate  and 
the  corresponding  joint  load  levels  are  printed.  Note  that  the 
ultimate  failure  of  a  ply  (shear-out  of  the  45  degree  plies)  does 
not  necessarily  imply  joint  failure.  In  the  considered  sample 
problem,  shear-out  of  the  0  degree  plies  limits  the  load-carrying 
capacity  of  the  joint.  Every  ply  suffers  a  two-stage  failure  as 
described  before  (Figure  31). 

When  executed  in  some  systems,  SASCJ  could  yield 
underflow  messages  after  many  plies  have  suffered  total  failure. 

This  may  occur  when  the  double  precision  format  is  not  followed  in 
entering  inpvt  data.  Nevertheless,  the  user  is  advised  to  ignore 
these  messages. 

3.4  Description  of  SAMCJ  Analysis 

This  section  presents  an  overview  of  the  strength 
analysis  in  the  samcj  computer  code,  a  description  of  the  developed 
special  finite  elements,  and  the  analytical  procedure  used  in  SAMCJ 
to  predict  fastener  loads,  the  critical  fastener  or  cut-out 
location,  the  corresponding  joint  strength  and  the  failure  mode. 

A  flow  chart  of  SAMCJ  operations  is  presented  in  Figure 
38.  As  input,  SAMCJ  requires  the  user  to  specify  how  the  bolted 
plates  are  divided  into  plain  elements  and  elements  with  loaded  or 
unloaded  holes.  The  bolted  plates  are  currently  assumed  by  samcj  to 
be  subjected  to  uniaxial  tensile  or  compressive  loading,  in  a  single 
or  double  shear  configuration.  Additional  input  requirements  for 
the  SAMCJ  code  include  the  material  properties  of  the  bolted  plates 
and  fasteners,  and  the  fastener  size,  location  and  torque.  The 
material  properties  of  tho  bolted  laminates  include  the  tensile  and 
compressive  failure  strains  in  the  fiber  direction  of  the  lamina, 
and  the  characteristic  distances  over  which  stresses  are  averagaa  to 
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SASCJ  Output  for  the  Problem  Def  med 
in  Figure  36  (Concluded). 


GFOMETRY  ADD  TYPE  OF  INDIVIDUAL  ELEMENTS 
(PLAIN  ELEMENT,  ELEMENT  WITH  LOADED  OR 
UNLOADED  HOLE)  IN  THE  BOLTED  PLATES 


Figure  38.  Flow  Ctiart  ol  SAMC.J  Operat  Lonu. 
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-.ccd.ct  not  scctio:  ,  snear-out  and  bearing  failures  at  the  fastener 
or  cut-out  location. 

With  the  above  input,  SAMCJ  performs  the  following 
computations.  It  initially  generates  stiffness  matricos  for  all  th 
special  finite  elements ,  namely,  plain  elements,  elements  with 
loaded  or  unloaded  holes,  and  effective  fastener  elements  (see 
Reference  7)  .  The  individual  stiffness  matrices  are  subsequently 
assemble.,  to  obtain  the  global  stiffness  matrix  for  the  bolted 
joint.  A  1  kip  uniaxial  tensile  or  compressive  joint  load  is 
imposed  on  the  left  end  of  the  top  plate,  in  accordance  with  the 
input  instructions  (see  Figure  33).  The  nodes  at  the  right  end  of 
the  bottom  plate  are  constrained  from  translating  in  the  load 
direction,  and  one  of  these  nodes  is  also  constrained  in  the 
transverse  direction,  to  preclude  all  rigid  body  translations.  The 
solution  to  this  finite  element  formulation  of  the  bolted  joint 
provides  the  axial  and  transverse  components  of  the  load  at  every 
fastener  location,  cot; responding  to  a  l  kip  joint  load.  Also 
computed  are  the  average  net  section,  shear-out  and  bearing  strasse: 
at  every  fastener  and  cut-out  location,  corresponding  to  a  1  kip 
joint  load. 

SAMCJ  provides,  as  output,  the  failure  value  of  tha 
uniaxial  joint  load,  the  critical  fastener  or  cut-out  location,  and 
the  joint  failure  mode.  These  are  obtained  as  follows.  The 
tensile,  compressive  and  shear  strengths  of  tha  plain  laminates  are 
computed  based  on  thn  input  tensile  and  compressive  failure  strains 
in  the  fiber  direction  of  the  lamina.  The  ratios  of  the  averaged 
stresses  to  the  corresponding  unnotchad  laminate  strengths,  at 
selected  locations  around  each  fastener  and  cut-out  boundary,  are 
compared  to  predict  the  failure  mode,  the  critical  fastener  or  cut¬ 
out  location  and  the  joint  failure  load.  SAMCJ  predicts  net 
section,  shear-out  and  bearing  modes  of  failure  at  the  laminate 
level.  In  the  SASC7  coda,  similar  failure  predictions  for  single 
fartener  joints  in  composites  are  made  at  the  lamina  level. 
Consequently,  the  failure  parameters  ;charactoristic  distances  for 
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the  three  failure  nodes)  used  with  SAMCJ  are  different  from  those 
used  with  sascj. 

The  incorporation  of  the  transverse  effective  fastener 
stiffness  values  provides  SAMCJ  the  capability  to  aeoount  for 
fastener  flexibility,  torque,  and  load  eocentrioity  (single  versus 
double  shear  load  transfer) .  The  FDFA  code,  developed  in  Reference 
6,  is  used  to  compute  the  effective  fastener  transverse  stiffnesses, 
along  and  perpendicular  to  the  load  direction  (see  Reference  7) . 

The  effect  of  the  laminate  stacking  sequence  is  also  accounted  fox- 
in  this  analysis.  SAMCJ  executes  FDFA  twice  to  account  for  the 
layup  variation  (by  90  degrees)  from  the  loading  direction  to  the 
perpendicular  direction. 

SAMCJ  accounts  for  stress  concentration  interaccion 
effects  introduced  by  neighboring  cut-outs,  free  edges  and  proximate 
fastener  locations.  This  is  made  possible  by  the  uee  of  the  FIGEOM 
stress  analysis,  developed  in  Reference  6,  to  generate  element 
stiffness  natricesa  (see  Reference  7) .  FIGEOM  accounts  for  finite 
planform  plate  dimensions  through  a  boundary  collocation  solution 
procedure  (see  Reference  6) . 

SAMCJ  computes  the  magnitude  and  the  orientation  of  the 
load  at  each  fastener  location.  Zt  is  a  two-dimensional  load 
distribution  analysis  that  does  not  rely  on  an  experimental 
measurement  of  "joint  stiffness."  In  a  design  situation,  many 
fastener  arrangements  can  bo  analytically  and  economically  evaluated 
by  SAMCJ  to  arrive  at  the  best  fastener  pattern  for  the  assumed 
loading  conditions. 

When  the  bolted  plates  are  tapered,  the  SAMCJ  user  can 
input  equivalent  uniform  thickness  elements  to  approximate  the 
tapering  effect  (oeo  Figure  40) .  Adjacent  elements  in  the  tapered 
plate  will  have  different  thickness  values.  This  feature  is 
essential  in  the  analysis  of  practical  structural  joints. 
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Figure  *>0.  Finite  Element  Model  of  a  Sample  Tapered  Bolted  Jr  nt. 


SAMCJ  has  been  developed  for  the  strength  prediction  of 
bolted  laminated  structural  parts.  It  currently  assumes  that  the 
selected  fasteners  preclude  fastener  failure.  Also,  it  applies  the 
same  failure  procedure  to  both  the  bolted  plat as,  accounting  for  net 
section,  shear-out  and  bearing  failures  via  the  averaged  stress 
failure  criteria  applied  at  the  laminate  level.  Joint  failure  is 
assumed  to  ba  a  one-step  (catastrophic)  process.  The  strength  of  a 
bolted  plate  corresponds  to  the  initial  failure  at  a  fastener  or  a 
cut-out  location,  in  the  bearing,  shear-out  or  net  section  failure. 

The  unnotchad  laminate  strengths,  under  tension, 
compression  and  inplana  shear,  are  computed  by  SAMCJ  based  on  input 
fiber-directional  failure  strain  values  (tensile  and  compressive) . 
Laminate  strengths  under  Nx  and  Nxy  loadings  (inplane  normal  and 
shear  stress  resultants,  respectively)  are  assumed  to  correspond  to 
first  fiber  failure  in  a  ply.  This  simplistic  strength  prediction 
procedure  introduces  inaccuracies  that  have  been  acknowledged  and 
discussed  in  the  literature.  Nevertheless,  SAMCJ  adopts  this 
procedure  for  lack  of  a  validated  alternative. 

Despite  its  versatility,  SAMCJ  has  limitations  that  the 
user  should  be  aware  of.  Reference  7  discusses  the  limitations  of 
the  five-noded  (10  degres  of  freedom)  loaded  hole  element  and  the 
four-noded  (8  degrees  of  freedom)  unloaded  hole  element.  In 
addition,  when  dividing  a  bolted  plate  into  many  elements  (loaded  or 
unloaded  hole  elements,  as  well  as  plain  elements),  it  is  advisable 
to  maintain  element  geometries  that  do  not  render  the  generated 
stiffness  matrices  inaccurate.  Figure  41  presents  results  from  a 
study  conducted  on  a  singly-fastened  metallic  plate.  Pr  is  the 
recovered  load  that  is  obtained  by  integrating  the  stresses  along  a 
line  transverse  to  the  load  direction  as  shown  in  Figure  41.  P  is 
the  applied  load  or  the  sum  of  the  nodal  loads  (especially  in  the 
interior 'dements  in  a  general  multifastened  plate).  The  recovered 
load  (Pr)  approaches  the  applied  load  value  (P)  when  the  plato 
aspect  ratio  (a/b)  increases  beyond  unity,  and  when  a/D  and  b/D  hive 
a  minimum  value  of  approximately  three.  In  predicting  failure  in 
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the  net  section ,  bearing  and  shear-out  nodes,  the  computed  average 
stress  values  are  multiplied  by  P/Pc,  to  remove  geometry  (modeling) 
effects  from  the  computed  stresses. 

3.5  SAMCJ  Input  Description 

To  familiarize  the  user  with  SAMCJ  input  requirements,  a 
sample  problem  is  presented  here  (see  Figure  42) .  The  sa^le 
problem  considers  a  six  fastener  composite-to-metal  joint,  with  a 
one  inch  diameter  circular  cut-out  adjacent  to  the  first  row  of 
fasteners.  Figure  42  presents  the  assumed  nine  element  model  of 
each  of  the  two  bolted  plates,  analyzed  by  SAMCJ.  Figure  43 
presents  SAMCJ  requests  and  user  input  in  response  to  these 
requests,  for  the  sample  problem  in  Figure  42. 

Though  self-explanatory,  the  interactively  entered 
SAMCJ  input  in  Figure  43,  for  the  sample  problem  in  Figure  42,  is 
described  here  for  completeness.  The  first  entry  (1)  identifies  the 
loading  configuration  to  be  a  single  shear  configuration.  The 
second  entry  (1)  identifies  the  load  to  be  in  static  tension.  The 
next  two  entries  say  that  the  top  plate  is  a  metal  (M) ,  identified 
as  "Aluminum."  The  two  entries  following  these  say  that  the  bottom 
plate  is  a  composite  laminate  (C) ,  identified  as  follows: 

"  (45/0/-45/0) 2/0/90)  2s . "  Subsequently,  the  young's  modulus 
(10.0D6)  and  Poisson's  ratio  (0.3)  for  aluminum,  and  the  fiber- 
directional,  transverse  and  shear  moduli  and  Poisson's  ratio 
(18.5D6,  0 .8506  and  0.3,  respectively)  for  the  composite  lamina  are 
input.  The  next  five  entries  spocify  that  four  (4)  different  fiber 
orientations  are  present  in  the  laminate  (0,  45,  -45  and  90  degrees 
with  respect  to  the  loading  direction) .  The  following  three  entries 
say  that  the  elements  in  the  bottom  plate  contain  one  (1)  layup  of 
forty  (40)  plies,  of  0.006175  inch  thickness  each.  The  stacking 
sequence  for  this  layup  is  input  next,  where  i,  2,  3  and  4  refer  to 
0,  45,  -45  and  90  degree  fiber  orientations,  respectively. 
Subsequently,  the  fastener  is  identified  as  "Steel,"  and  its  Young's 
modulus,  Poisson's  ratio,  and  head  type  (30.0D6,  0.3,  0.3125  and 
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Figure  43.  SANt:J  Input  far  the  Sample  Problem  in  Figure  42  (Continued). 
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Figure  43.  SA.'iCJ  Input  for  the  Sanple  Problea  in  Figure  42  (Continued). 
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Figure  A3.  SAHCJ  Input  for  the  Saaple  Problem  in  Figure  A2  (Cont inued) . 


protruding  head)  are  input. 


Twenty-two  (22)  grid  points  each  are  specified  in  the 
top  and  bottom  plates  (101  to  122  and  201  to  222,  respectively), 
along  with  their  x  and  y  coordinates  (see  Figure  42).  Following 
this,  nine  (9)  elements  are  specified  in  each  plate,  along  with 
their  nodal  connectivity  and  element  type  information.  Nodal 
connectivity  is  specified  starting  from  the  bottom  left  node,  going 
clockwise  around  the  element  boundary,  and  ending  at  the  fastener 
(internal)  node.  Element  101  in  the  top  plate,  for  example,  has 
101,  102,  109  and  108  as  its  corner  nodes,  and  105  as  its  fastener 
node.  The  fifth  node  will  be  entered  as  0  for  plain  and  unloaded 
hole  elements.  The  element  type  information  follows  the  fifth  node 
identification.  It  is  1,  2  and  3  for  plain,  loaded  hole  and 
unloaded  hole  elements,  respectively.  The  element  definitions  are 
succeeded  by  the  definition  of  eix  (6)  effective  fasteners  (101  to 
106) .  Fastener  101,  for  example,  is  identified  as  a  faotenar  that 
connects  node  105  in  tha  top  plata  to  node  205  in  the  bottom  plate. 

Following  the  above  input,  additional  elamant  data  are 
specified  for  the  two  plates.  These  include  the  element  thicknesses 
(fcr  metallic  plates)  or  layup  identification  number  (for  laminated 
plates),  for  plain  and  loaded  hole  elements,  with  additional 
information  (x  and  y  coordinatas  of  the  hole  center  and  the  hole 
radius)  for  unloaded  hole  elements.  For  the  sample  problem  in 
Figure  42,  all  tha  elements  in  the  top  plate  (metal)  are  specified 
to  be  0.50  inch  thick,  and  all  the  elements  in  the  bottom  plate 
(composite)  are  specified  to  contain  the  stacking  sequence 
identified  as  one  (1).  Elements  108  and  208  specify  the  cut-out 
size  and  location.  The  one  (1)  following  this  states  that  groups  of 
identical  elements  will  be  specified  in  the  two  plates.  If  two  (2) 
is  entered  here,  all  elements  will  be  assumed  to  be  different  from 
one  another,  resulting  in  larger  computational  costs.  The  entry 
"161  1"  refers  to  the  number  of  groups  of  effective  fasteners, 
loaded  hole,  unloaded  hole  and  plain  elements,  respectively,  in  the 
top  plate.  A  zero  (0)  specifies  the  absence  of  an  element  type. 
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The  number  of  elements  in  each  group,  and  the  corresponding  element 
numbers,  are  input  subsequently.  Following  this,  the  number  of 
groups  of  loaded  hole,  unloaded  hole  and  plain  elements  in  the 
bottom  plate  (6,  l  and  1,  respectively)  is  entered. 

The  last  four  lines  of  input  introduce  the  failure 
parameters  for  the  materials  in  the  two  plates.  For  motallic 
plates,  the  tensile,  compressive  and  shear  strengths  (2S0.0D3  each), 
and  the  averaging  distances  for  the  net  section,  bearing  and  shear* 
out  modes  of  failure  (O.S  each)  are  input,  since  the  joints  were 
designed  to  fail  the  laminated  plates,  and  SAMCJ  was  developed 
primarily  for  the  prediction  of  the  strength  of  bolted  laminates, 
the  failure  parameters  for  the  metallic  plates  wars  input  to  b« 
arbitrairly  high.  This  information  is  followed  by  the  failure 
parameters  for  the  bottom  (composite)  plate.  The  first  line 
specifies  ths  fiber  directional  failure  etrains  for  the  material 
under  tension  (0.012)  and  compression  (0.0175).  Thsss  valusa  ars 
used  by  SAMCJ  to  compute  ths  unnotchad  laminate  tensile,  compressive 
and  shear  strengths,  based  on  laminated  plate  theory  and  the 
assumption  of  laminate  failure  corresponding  to  ths  first  fiber 
failure  in  any  of  its  plies.  The  last  line  in  Figure  43  specifies 
the  distance  over  which  the  longitudinal  (0.10  and  0.23)  and  shear 
(0.25)  stress  components  are  averaged,  to  predict  net  section, 
bearing  and  shear-out  modes  cf  failure,  respectively. 

3.6  SAMCJ  Output  Description 

For  the  sample  problem  introduced  in  Section  3.5,  the 
SAMCJ  code  yields  the  output  presented  in  Figure  44.  The  initial 
part  of  the  output  reprints  critical  user-supplied  information  for 
verification  purposes,  subsequsntly,  SAMCJ  prints  ths  x  and  y 
components  of  ths  element  nodal  forces  for  all  ths  elsmsnts  in  the 
bolted  plates.  This  is  follovsd  by  i  list  of  the  computed  joint 
load  levels  that  correspond  to  tho  thrss  failure  modes  (net  section, 
shear-out  and  bearing)  at  every  loaded  and  unloaded  hole  element 
location.  The  smallest  among  these  loads  yields  ths  joint  failure 
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load,  the  failure  location  and  the  failure  node.  For  the  considered 
sanple  problem,  a  net  section  failure  is  predicted  across  the  one 
inch  diameter  cut-out  (element  208)  in  the  graphite/epoxy  plate,  at 
a  joint  load  level  of  37.3  kips.  Figure  45  compares  SAMCJ 
predictions  with  test  results  from  Reference  8. 


Test  Case  2 A 3 ,  Static  Tension,  Single  Lap 

40-Ply,  50/40/10  laminate,  C-0.247  in.,  t;u.-0.5Q  in. 

0-5/16  in.,  Up-1  In.,  SL/D-ST/D-4,  W/O-14.4,  E/>3.2 
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Figure  45.  Conpariaon  of  SAMCJ  Predictions  for  the  Sample  Problem  with 
Test  Results  from  Reference  8. 


SECTION  4 

DESIGN  VERIFICATION  OF  A  BOLTED  STRUCTURAL  ELEMENT 

The  design  of  a  highly-loaded  structural  bolted  joint  is 
verified  in  this  section  using  the  analytical  tool  (SAMCJ  computer 
code)  proposed  for  tha  recommended  design  methodology  (Section  1.3). 

4 . 1  Description  of  the  Bolted  Structural  Element 

In  Reference  5,  a  bolted  joint  concept  was  etudied  as  an 
alternative  to  a  highly  loaded  composite-to-titanium,  step  lap 
bonded  joint.  Tha  vertical  tail  structure  of  tha  F/A-18A  was  used 
as  the  baseline  for  this  study.  A  preliminary  design  of  tha  bolted 
structural  element,  representative  of  the  critical  F/A-18A  vertical 
tail  root  section,  was  performed  based  on  approximate  analyses  and 
available  test  results.  The  test  element  was  designed  to  transfer  a 
dosign  ultimate  load  of  70.2  Kips  (obtained  from  the  F/A-lBA 
empennage  stress  analysis  report) ,  and  to  survive  two  lifetimes  of  a 
representative  design  spectrum  fatigue  loading. 

The  design  of  the  bolted  structural  element  studied  in 
Reference  5  differs  from  the  existing  F/A-18A  vertical  tail  root 
joint  significantly.  It  eliminates  the  graphite/ epoxy  skin-to- 
titanium  bonded  joint,  and  directly  attaches  tha  skins  to  the 
fuselage  frame.  In  doing  so,  it  also  uses  a  light  root  rib,  in 
contrast  to  the  highly-loaded  attachment  root  rib  used  in  Reference 
4.  The  AS4/3501-6  graphite/epoxy  skins  of  the  element  have  a  41-ply 
layup  away  from  the  attachment  location.  The  skins  increase  in 
thickness  to  a  60-ply  layup  near  the  tab  rogior.  that  bolts  the 
vertical  tail  akin  to  the  fuselage  frame.  The  graphite/epoxy  tabs 
are  machined,  prior  to  assembly,  to  introduce  a  taper  at  the  joint 
location.  In  Reference  5,  the  fuselage  attachment  fitting  was  made 
out  of  steel,  and  the  skins  were  bolted  to  it  using  3/8-  inch 
diameter,  countersunk  high  strength  steel  bolts.  Figure  46  shows  a 


photograph  of  an  assembled  toct  elep.ent.  The  element  spar  and  the 
root  rib  were  fabricated  using  an  aluminum  alloy. 


4.2  Test  Results 

Elements  fabricated  based  on  this  preliminary  design 
were  subjected  to  static  and  fatigue  loads  in  Reference  5.  They 
survived  two  lifetimes  of  a  spectrum  fatigue  load  that  was 
significantly  mora  severe  than  the  actual  F/A-10A  vertical  tail 
design  spectrum  load,  and  their  static  strengths  were  approximately 
30%  larger  than  the  design  ultimate  load.  During  the  static  test, 
failure  cccored  in  the  graphita/epoxy  skin  tab  in  a  combined  mode 
(see  Tigure  17) .  The  observed  failure  modes  were  significantly 
influenced  t  >  the  tilting  or  '‘digging  in*'  of  the  countersunk 
fasteners  -  a  phenomenon  that  cannot  be  accounted  for  by  the 
fastener  tr  .lysis  in  the  SAMCJ  computer  coda. 

4 . 3  Design  Verif ir  \tion  of  the  Element  Using  SAMCJ 

The  critical  vertical  tail  skin-to-fuaalage  joint  region 
is  analysed  below  using  the  SAMCJ  code  that  is  recommended  as  an 
analytical  design  tool.  Though  the  analysis  vras  performed 
retrospect’ vely,  the  assumed  material  and  failure  parameters  are 
identical  to  those  used  in  Reference  7. 

Figure  43  presents  the  dimensions  of  the  analyzed 
graphite/epoxy  skin  tabs  and  the  fuselage  attachment  frame.  The 
tapered  skm  has  a  [02B/+-45i2/907  ]c  layup  at  the  top  of  the  tab 
region.  Across  the  top  row  of  fasteners,  it  has  an  average  of  58 
plies,  and  across  the  bottom  row  of  fasteners,  it  has  an  average  of 
52  plies.  For  analytical  purposes,  the  tapered  tab  region  is 
modeled  as  two  uniform  regions  of  different  thicknesses.  The  top 
region  is  modeled  to  contain  a  [0,8/+-4512 /90& Jc  layup,  and  the 
bottom  region  is  assumed  to  be  a  [0;;6 /+-45JO/90(i ]c  laminate.  The 
average  thickness  of  a  ply  in  the  skin  was  measured  to  be  0.0049 
inch.  The  fuselage  attachment:  frame  1b,  likewise,  divided  into  a 


0.41  Inch  thick  region  and  a  0.46  inch  thick  region  (see  Figure  48). 

The  modeled  joint  segment  is  half  of  the  symmetric  skin 
tab-to-fuselage  attachment.  The  total  joint  failure  load  is, 
therefore,  twice  the  predicted  load,  a  single  shaar  load  transfer 
between  the  AS4/3 501-6  graphite/epoxy  skin  tab  and  the  steel 
attachment  frame  is  analyzed.  The  graphite/epoxy  tab  and  the  eteel 
plate  ere  divided  into  four  elements  each.  The  average  width  of  the 
slightly  tapered  tab  is  used  in  the  analytical  model  (3. 57  in.). 

The  fiber-directional  tensile  and  compressive  failure  strains  for 
A34/3S01-6  graphita/epoxy  are  assumed  to  be  0.012  and  0.0175, 
respectively  (References  7,  13).  The  characteristic  distances  for 
net  section,  bearing  and  shear-out  failure  modes  are  assumed  to  be 
0,10,  0.25  and  0.25  inch,  respectively  (Reference  7).  The  basic 
AS4/3501-6  lamina  properties  are  assumed  to  be  18.5  Mai,  1.9  Msi  and 
0.85  Msi  for  Eu,  E 22  *nd  ,  respectively,  and  0.3  for  the  major 
Poisson's  ratio. 

The  skins  are  attached  to  the  fuselage  frame  by  3/8  inch 
diameter,  countersunk  fasteners  (100  degree  tension  head) .  The 
fastener  analysis  in  SAMCJ  cannot  accurately  account  for  the  effects 
of  the  countersunk  head  geometry.  However,  it  approximates  the 
actual  effects  by  assuming  free  rotation  at  the  fastener  head 
location,  and  requires  the  user  to  input  an  equivalent  protruding 
head  fastener  diameter.  Zn  the  discussed  element  analysis,  the 
average  fastener  diameter  is  assumed  to  be  0.458  inch,  to  account 
for  the  loo  degree  tension  head  geometry. 

Analytically  predicted  load  distribution  among  the 
fasteners  in  each  tab  is  presented  in  Figure  49.  The  symmetry  in 
the  fastener  arrangement  results  in  low  values  for  the  transverse 
components  of  fastener  loads  (perpendicular  to  the  load  direction) . 
Also,  the  loads  in  the  top  row  of  fasteners  are  approximately  141 
larger  than  those  in  the  bottom  row  of  fasteners.  This  leads  to  a 
prediction  of  failure  initiation  from  the  top  row  of  fasteners  (see 
Figure  49) .  The  predicted  failure  situ  (critical  location)  is  in 


loo 


Failure  -ocation  and  Failure  Mode 


Figure  49.  Load  Distribution  Among  Fasteners,  Failure  Location 
and  Failure  Mode  in  the  Graphito/Epoxy  Tabs. 
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agreement  with  experimental  obaervation. 


Figure  50  presents  the  analytically  predicted  element 
load  levels  to  precipitate  net  section,  bearing  and  shear-out  modes 
of  failure  at  the  various  fastener  locations.  The  lowest  among 
these  provides  the  element  failure  load,  the  failure  location  and 
the  failure  mode,  SAMCJ  predicts  element  failure  to  be  caused  by  a 
shear-out  mode  of  failure  at  the  top  left  fastener  location  in 
Figure  50.  The  failure  mode  observed  in  Reference  5,  however,  was 
severe  damage  around  the  fastener  hole,  introduced  by  the  tilting  of 
the  countersunk  fasteners  (see  Figure  47) .  This  included  some 
amount  of  shear-out  and  local  bearing,  and  severe  delaminations 
around  the  fastener  hole  boundaries.  Since  SAMCJ  cannot  account  for 
the  sovere  local  throe-dimensional  stress  state  introduced  by  the 
countersunk  fasteners,  the  predicted  failure  mode  (shear-out)  does 
not  correlate  wall  with  the  observed  combined  failure  mode  (partial 
shear-out,  local  bearing,  and  severe  delaminations) . 

Despite  the  approximate  failure  mode  prediction, 
however,  SAMCJ  correctly  predicts  the  failure  location,  and  the 
failure  load  predicted  by  SAMCJ  (98.0  kips)  is  only  7%  larger  than 
the  measured  value  (91.8  kips).  The  approximation  of  the 
countersunk  fasteners  by  equivalent  protruding  head  fasteners 
(larger  diameter,  unconstrained  at  the  head  location),  therefore, 
predicts  the  element  failure  load  with  adequate  accuracy.  The  SAMCJ 
analysis  and  the  test  results  in  Reference  5  indepenently  verify  the 
30%  margin  of  safety  in  the  static  strongth  o'J  the  test  element,  due 
to  the  approximate  analyses  used  in  its  preliminary  design. 
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SECTION  5 


CONCLUSIONS 


A  design  guide  was  developed  to  enable  the  user  in 
designing  efficient  bolted  joints  in  ooapoeite  etructuree.  The 
guide  highlights  general  design  guidelines  for  the  various 
parameters  that  are  to  be  considered  in  selecting  a  baited  joint 
concept.  A  purely  analytical  design  methodology  is  presented.  It 
is  devoid  of  complementary  test  requirements  when  a  previously 
characterized  material  is  used  to  fabricate  the  bolted  structure. 

The  design  guide  also  illustrates  the  use  of  two  computer  codes 
(SASCJ  and  SAMCJ)  chat  ware  developed  in  this  Northrop/ afwal  program 
and  are  required  for  design  purposes.  A  listing  of  these  computer 
codes  is  appended  to  this  report. 
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SASCJ  PREDICTS  LOAD-DEFORMATION  CURVES  AND  FAILURE  LOADS  OF 
MECHANICALLY  FASTENED,  COMPOSITE  LAMINATE,  SINGLE  LAP  OR 
SYMMETRICAL  DOUBLE  LAP  SHEAR  JOINTS,  THE  BASK  OF  THE  FAV.t WZ 
ANALYSIS  IS  A  NONLINEAR  FINITE  DIFFERENCE  SOLUTION  OF  A  BEAM  ... 
(FASTENER)  ON  AN  ELASTIC  FOUNDATION  (COMPOSITE  LAMINATE). 
SELECTED  FAILURE  CRITERIA  ARE  USED  TO  PREDIC1*  INDIVIDUAL  PLY 
FAILURES  AND  MODES  (INCLUDING  INTERLAMINAR  SHEAR) .  THE  LOAD 
IS  AUTOMATICALLY  INCREMENTED  TO  FINAL  FA  t  LURE  TO  ACCOUNT  FOR_ 
THE  NONLINEAR  JOINT  BEHAVIOR. 

IMPLICIT  REAL*a(A-H,0-Z> 

DIMENSION  NPLY( 2),PLYK(1Q0) >MASHD(2) , ES1(2) »E32( 2) « ESS(Z) 
DIMENSION  MTL(S,13)iR(2),F(100)iU(100) 

DIMENSION  NPNM( 100.2), NUMPLYI2) . OAMDl (2) ,CM(2) 

DIMENSION  DELNS(3.2).PNS(5,2),PBR<5,21,PSO(5,2),PALT(S,2) 

DIMENSION  DEL8R(3,2),DE130(3.2).ANOK(S,2)  . 

DIMENSION  4NQ( S , 2 ) , IPLY( 100,2). DONT( 2 ) , D0BR(2) , DOSO(2) 

DIMENSION  FNT(5,2),FBR(S,2),PS0(S,2) 

DIMENSION  BARKC 100 ) , BARU( 100), HFMC< 3, 2) 

DIMENSION  E1(2),E2(2), 012(2), VI2(2),V2K2),M(2) 

DIMENSION  UN( 100 ) ,MDAMP( 100) ,MDAMI(  10U),PN(100) , OAMN( 100) . 

DIMENSION  XOUKAOO) , Y0UT(400),PSTC(3,3»2),RCA<2)»RC8(2),NRC0UT(2) 
DIMENSION  XC( 2, 3) , YC( 2, 3) , 3ALOH( 2 ) 

DIMENSION  ADNTt  2. 2  )  ,A0BR( 2,2) 

COMMON/ AOV/AOHT, AOBR.AOSO 
COMMON/COUMT/NPNM 
C0MMON/MOD/El,22,O12,  V12.V21 

COMMOM/LYP/NPLY ,  NUMPIY ,  ANO,  IPLY  _ _ _ 

COMMON/RC/ RCA, ROB , MRCOUT 
COMMON/ PSC1/DOMT . DOBR , D030 
COMMON/ PSC2/PSTC 

COMMON/ FAL 1/PNS . PBR. PSO.  PAIT  . 

COMMON^ FAL 2/ FNT , FBR, FSO 
COMMON/ FAL 3 'DEL  NS .DELBR.DELSO 
COMMON/ FAL  A/UN . OAMN , MDAMP , MDAMI , PN 
COMMON/PBB/PLYK , BARK , BARU 
COMMON/ELP/AX, BX.NOUT 
COMMON/NFF/HFMC 
CCMM0N/3ER/NT.NB 
DATA  CMC/ ’C  ’/ 


READ  IN  REQUIRED  INPUT  DATA 


00000010 

00000020 

00000030 

00000040 

00000030 

00000060 

00000070 

ooooooao 

00000090 
00000100 
00000110 
00000120 
0000013 J 
00000140 
00000130 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000230 
00000260 
00000270 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000330 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000430 
00000460 
00000470 
00000480 
00000490 
00000300 
00000310 
00000320 
00000530 
00000940 
000003*3 
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WRITE?  6 ,8. b  > 

876  FORMAT ( /// , 1  OX, '  PROGRAM  SA5CJ',//, 

*'  PROGRAM  SASCJ  PREDICTS  FAILURE  LOADS  OF  ',/, 

*'  MECHANICALLY  FASTENED,  COMPOSITE  LAMINATE,'./, 

*'  SINGLE  OR  DOUBLE  LAP  SHEAR  JOINTS.  ',//. 

»«  PROORAM  ASSUMES  THAT  INPUT  PARAMETERS  ARE  ',/, 

»•  IN  ENOLISH  UNITS  -  LENOTHS  ARE  INPUT  ',/, 

H*  IN  INCHES  AND  MODULI  AND  STRENGTHS  ARE  ',/, 

*'  EXPRESSED  IN  PSI  ',//) 

WRITE? 6 .401 ) 

401  FORMAT? '  ENTER  BYPASS  RATIO  ALPHA '  ',//, 

*'  ALPHA«0  FOR  FULL  BEARING 

*'  ALPHA*1  FOR  OPEN  HOLE  ',/, 

»'  0<ALPHA<1  FOR  GENERAL  BYPASS  ') 

READ?  5 • F )  BPR 
WR I TE! 6 , 9 1 1  ) 

911  FORMAT?  •  ENTER' 

*'  1  FOR  STATIC  TENSION  ',/, 

*'  2  FOR  STATIC  COMPRESSION',/) 

READ?  S , «  )  LTNCM 
NL IM* l 

IF(BPR.EQ.l.O)  GO  TO  180 
NLIM*2 

WRITE?  6 . 400 ) 

400  FORMAT?  «  ENTER'  ' 

»<  1  FOR  SLS  (SINOLE  LAP  SHEAR)',/, 

M •  2  FOR  DLS  ?  DOUBLE  LAP  SHEAR)',/) 

READ?  5 .  * )  NSDLS 
106  FORMAT ?  A l ) 

380  CONTINUE 

DO  300  K* 1 , NL IM 
IF(K.EO.l)  WRITE?#. ill) 

611  FORMAT?'  IS  THE  TOP  PLATE  A  COMPOSITE  OR  a  METAL  ?',/, 

«•  ENTER  C  OR  M  IN  THE  FIRST  FIELD') 

IFU.EQ.2)  WRITE?  6,789  ) 

789  FORMAT?'  IS  THE  BOTTOM  PLATE  A  COMPOSITE  OR  A  METAL  ?',/, 
*'  ENTER  C  OR  M  IN  THE  FIRST  FIELD') 

READ?  S . 1 06 )  CM?  K) 

WRITE?  6 ,203 ) 

203  FORMAT?'  INPUT  MATERIAL  DESCRIPTION  OF  THIS  PLATE  ',/, 

*'  EX'  ASA/ 550  1  -fi  •  ) 

READ?  5.204  )  ?MU  ?  K  ,  I ) ,  I  *1 . 15) 

209  FORMAT? ISA*' 

300  CONTINUE 

IF (CM? 1)  .ME. CMC. OR. CM? 2)  .NE.CMC)  WRITE? 6, 7 21 ) 

721  FORMA  I < / , •  NOTE'  FOR  COMPUTATIONAL  PURPOSES  A  ',/, 

«'  METALLIC  PLATE  IS  MODELED  AS  A  30  PLY  ',/, 

*'  LAMINATE  OF  0  DEGREE  PLIES  WITH  ISOTROPIC',/, 

«'  MATERIAL  PROPERTIES' ,/ > 

IF?  BPR . NE . 1 . 0 )  WRITE?f ,494) 

IF?BPR . EO. 1 .0)  WRI TE? 6 , 495 ) 

494  FORMAT? •  MOTE'  NUMERICAL  DESIGNATIONS  FOR  THE  »,/. 

»'  PLATES  ARE '  './, 

*'  TOP  PLATE  «  NO  1  ',/, 

*'  BOTTOM  PLATE  ■  NO  2  ',/) 

495  FORMAT?'  NOTE'  A  SINGLE  PLATE  WITH  AN  OPEN  ',/, 

*'  HOLE  15  DESIGNATED  AS  PLATE  NUMBER  I',/) 

DO  301  K *  1  .  N 1 1 M 
I F ? CM?  K ) , EO , CMC )  00  TO  15 
NPLY?  K ) *30 


00000560 
00QQU57Q 
00000580 
00000590 
000006  QO 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00000680 
00000690 
0000070') 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00000790 
00000800 
00000810 
00000820 
00000830 
00000840 
00000850 
00000860 
Q0000870 
00000880 
00000090 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
Q000099Q 
00001000 
00001 010 
00001020 
03001030 
00001040 
00001050 
00001060 
00001070 
00001080 
00001090 
00001 100 
OOOOUIO 
00001120 
00001130 
00001140 
00001150 


00  TO  301 
15  CONTINUE 

IF! NSDLS . EQ. 2. AND. K . EQ . 1 )  WRITE! 6, 932) 

932  FORMAT!/.*  HOTE*  FOR  THE  DOUBLE  LAP  SHEAR  CASE  HAVXNO  ',/, 
*•  A  COMPOSITE  PLATE  NUMBER  2,  ENTER  ONLY  HALF',/, 

*'  OF  THE  LAYUP  -  IE  HALF  THE  NUMBER  OF  ACTUAL',/, 

*'  PLIES  ') 

WPITE(6,205)  K 

205  FORMAT! •  INPUT  NUMBER  OF  PLIES  IN  PLATE  NO', 15,/, 

W  (N  >  OR  *  2) ' ) 

READ! 5, v )  NPL  Y! K ) 

NUM2s2AN(»LY(l!)  +  l 

301  CONTINUE 

DO  302  X-1.NL1M 

IF! CM! K ) . EQ.CMC)  00  TO  25  . 

IF! NSULS < EO . 2 . AND . K. EO . 2)  WRIT£!6.9S3) 

933  FORMAT!/, •  FOR  THE  DOUBLE  LAP  SNEAR  CASE  HAVXNO',/, 

X'  A  METALLIC  PLATE  NUMBER  TWO,  ENTER  HALF  THE  ',/, 
x'  ACTUAL  PLATE  THICKNESS  ') 

WRITEI6.35)  K 

35  FORMA!!'  INPUT  THICKNESS  OF  PtATE  NO', 15) 

READ! 5 , * )  A 1 
HOOsAl/NPLYCIO 
GO  TO  302 
2S  CONTINUE 

WRITE!6,26C)  K 

260  FORMAT!'  INPUT  PLY  THICKNESS  IN  PLATE  N0',I5) 

READ! S , x 1  HIK) 

302  CONTINUE 

DO  303  K*l ,NLIM 

1F(CM(K) . EQ.CMC)  00  TO  65  ......  ...  .. 

NUMPLYIK)*! 

GO  TO  303 
65  CONTINUE 

WRITE!6.207)  < 

207  FORMAT!'  INPUT  NUMBFR  OF  DISTINCT  PLY  ORIENTATIONS',/, 
x'  IN  PLATE  NO' , 15; 

READ(5. X)  NUMPLY!K) 

303  CONTINUE 

DO  209  K'l.NLIM 

IF! CM! K ) . EQ . CMC)  00  TO  55 

ANG! 1 , K ) *0  . 

GO  TO  209 
55  CONTINUE 

HR  I TE(6 . 987  )  K 

687  FORMAT!  /  ,  '  FOR  PLATE  NUMBER'.  IS,'  i',/) 

NsNUMPLY(K) 

DO  209  L  *  1 ,  M 
HR  I  Ti:<6 , 206  ) 

206  FORMAT! •  INPUT  ORIENTATION  OF  PLY  TYPE  NO', 15) 

READ! 5.x)  ANG(L.K) 

209  CONTINUE 

DO  305  K-l.NLIM 

IF(CM(K) .Eq.CMC)  00  TO  65 

NN'NPLY(K) 

DO  75  IJ«1.NN 
75  IPLY ! I J , K ) - 1 
GO  TO  305 
65  CONTINUE 

HRTTE! 6 , 210 )  K 


00001160 

00001170 

00001189 

00001190 

00001200 

00001210 

00001220 

00001230 

00001260 

00001250 

00001263 

00001270 

00001280 

00001290 

00001300 

00001310 

00001320 

00001330 

00001360 

00001350 

03001360 

00001370 

00001380 

00001390 

00001600 

00001610 

00001620 

00001630 

00001660 

00001650 

00001660 

00001670 

00001680 

00001690 

00001500 

00001510 

90001520 

00001530 

00001560 

00001550 

00001560 

00001570 

00001580 

00001590 

00001600 

00001610 

00001620 

00001630 

00001(60 

00001650 

0CQ01660 

00001670 

0000X660 

00001690 

00001703 

00001/10 

00001720 

00001730 

00001760 

00001750 


2x0 

FORMAT  (  •  itIPUT  TYPE  OF  PLY  IN  PLATE  NO', 15.'  FROM  TOP' .  Y , 

00001760 

K 

'  TO  BOTTOM 

0000 17  7  0 

«5X, • PLY  TYPE'.  OX. 'ORIENTATION') 

00001780 

N"NUMf'lY  F> 

0000 1790 

DO  212  L'l.N 

00001800 

HR XTErft.riS)  I.AHOIL.K) 

00001810 

215 

FORMAT! 5X, 1 5. 1  OX , F 7 . 2 .  '  DEGREES') 

00001820 

212 

CONTINUE 

00001830 

WRITEC6.711 ) 

00001840 

711 

FORMAT  C /  ' 

00001850 

NMfPLYCK) 

00001860 

DO  215  I ~ 1 . N 

00001870 

WRITE! 6 . 21 4 )  1 

00001880 

214 

FORMAT!'  INPUT  TYPE  OF  PLY  FOR  PLY  NO*. 15) 

00001390 

READ! 5,  >  )  IPLYCI.K) 

00001900 

215 

CONTINUE 

00001910 

105 

CONTINUI 

00001920 

DO  106  N-l.NLIM 

00001930 

WRITE!! . 216 )  K 

00001940 

216 

FORMAT!'  INPUT  THE  ENGINEERING  PROPERTIES  OF  PLATE  NO', IS) 

00001950 

I  Ft  CM! X ) . E9.CMC)  GO  TO  35 

00001960 

WRl  T E! 6 . 75) 

00001970 

95 

FORMAT! '  INPUT  YOUNGS  MODULUS  AND  POISSONS  RATIO') 

00001980 

READ(5,«;  E 1 C  K ) . V 1 2  <  X ) 

00001990 

E2t  K ) 1 Ei !  K  ) 

00002000 

V21!X):',12(K)»E2!A)-E1(X) 

00002010 

G12!K)«-.l!K)/<2.x!l  .  ♦V12U))) 

00002020 

GO  TO  3i,6 

00002030 

85 

CONTINU  •: 

00002040 

WRI T E( 6 . 21 7  ) 

00002050 

217 

FORMAT!'  INPU1  YOUNi.T.  MODULI,  El  'AND  E2') 

00002060 

REAP! 5 .  *  )  E1!X),E2!K  > 

00002070 

WRIT  EC6 .218  ’ 

00002080 

218 

FORMAT!'  INPUT  THE  S-iFAR  MODULUS  AND  MAJOR  POISSONS  RATIO') 

00002090 

REACC5,*)  G12CK).V1?CK) 

00002100 

V21(X)-V12CK.)*E2lK>/fcl!IC) 

00002110 

106 

CONTINUE 

00002120 

IF(t)PR  NE.1.0)  GO  TO  930 

00002130 

WR I T  EC  6 , 844 ) 

00002140 

890 

FORMAT;  •  INPUT  HOI  F.  I.IAMETER') 

00002150 

R I A  D  t  5  .  "  )  FASO 

00002160 

GO  TO  360 

00002170 

910 

CONTiniF. 

00002180 

MR  I T  El  6  >  250  ) 

00002190 

250 

FORMAT!  '  INPUT  MAIF.RIAL  DESCRIPTION  FOR  FASTENER') 

00002200 

READ! 5,251 )  C MTL C 3. 1 ) . I *1 » 15) 

00002210 

251 

FORMA' ( 1 5 A 4 ) 

00002220 

WRITE!  8, 252) 

00002230 

252 

FORMAT!'  INPUT  YOUNG-.  t;OOULUS  AND  POISSONS  RATIO  FOR'./', 

00002240 

x  '  THE  FASTENER'  ) 

00002250 

READ! 3,*)  FASE.FASV 

00002260 

WRlTFlo .255) 

00002270 

251 

FORMAT!'  INPUT  THE  DIAMETER  OF  THE  FASTENER') 

00002280 

RFAD(S.X)  FA3D 

00002290 

WRI T EC 6 , 888  ) 

00002300 

888 

FORMAT!/,  •  FASTENER  TYPE 

00002310 

«•  ENTER :  1  FOR  PROTRUDING  HEAD 

00002320 

» *  2  FOR  COUNTERSUNK  HEAD  ') 

00002330 

READ! 5 , *  )  NFTYP 

00302340 

Rf 1 ) =1 • 0D1 0 

(10002350 

non 


R(2)*l . Ow. J 

IFCNFTYP.E9.1)  GO  TO  360 
WRITEC6.SS9) 

889  FORMATS, '  ENTER  PLATE  WHICH  CONTAINS  THE  COUNTERSUNK*,/, 
*•  HEAD  (OPPOSITE  PLATE  ASSUMES  THE  NUT  HEAD)  *,//, 

X '  ENTER'  1  FOR  TOP  PLATE  ',/, 

X*  2  FOR  BOTTOM  PLATE  ')  ....  ..  ... 

REAO(S.*)  N 
R(N)  .0.000 
S60  CONTINUE 

READ  IN  GEOMETRY  AND  BOUNDARY  DATA 


AX*FA3D/2.0D0 

BX«AX 

WRITEC  6 . 836  ) 

856  FORMAT ( 1  PLATE  GEOMETRIES  ARE  SPECIFIED  BY 

INPUTTING  THE  COORDINATES  OF  THE  CORNER*./. 
VERTICIES.  NOTE'  THE  ORIGIN  IS  AT  THE  FASTENER*,/ 
CENTER  l  INPUT  COORDINATES  ACCP°DINGIY* ./ . 

•  •/. 

VS 

HOLE 

CENTROID 
V  4 

APPLIED  LOAD  CONVENTION' 

FOR  PLATE  NO  1  (TOP)  NORMAL 
BETWEEN  VS  AND  V4 


V2 


'./, 

'./. 
*.//. 
' ./ , 

LOADS  ARE  APPLIED 
*./. 


VI 


FOR  PLATE  NO  2  (BOTTOM)  NORMAL  LOADS  ARE  APPLIED 


7  34 


BETWEEN  VI  AND  V2 
DO  ABO  K*1 . NL IM 
WRITE(6.7SA)  K 

FORMAT ( *  FOR  PLATE  NUMBER  *,I3,*  •*,/) 

DO  110  1=1. A 
WRITEC  6.290)  I 

290  FORMAT  C  *  ENTER  X.Y  COORDINATES  OF  V',IA)' 
READ(  5.x)  XC(K.I'.YCCK,I> 

110  CONTINUE 

IFCK.EQ.2)  GO  TO  8A1 
A1*XC(1,1) 

B1«YC(1.1) 

A2»XC( 1.2) 

B2*YC( 1,2) 

XC( 1 . 1 )=XC( 1 , A ) 

YC( 1 , 1 ) =YC( 1 , A ) 

XC( 1 ,2 )=XC( 1 , S) 

YC( 1 . 2 ) =YC< 1 . 5) 

XC( 1 . 4 ) =  A 1 
YC( 1 , A )  =  B1 
XC( 1 »  3 ) 3 A2 
YC(  1 , 3 )  =  B2 
8A1  CONTINUE 

WTH3YC(K,2)-YC(K,1) 

ABO  CONTINUE 

I F( BPR . EQ . 0 . 0 . OR. 9PR. EQ .1.0)  GO  TO  567 
WRITEC  6 . 7A1 ) 

7A1  FORMATt*  SELECT  FAILURE  CRITERION'  *,//, 

X'  ENTER  l  FOR  POINT  STRE5S  CRITERION  ',/, 

x*  ENTER  2  FOR  AVERAGE  STRESS  CRITERION  *) 

READC  5 , x )  MPT 


,//> 


',/, 


00002360 
00002370 
00002380 
00002390 
00002400 
00002410 
00002420 
00002430 
00002440 
00002450 
00002460 
00002470 
00002A80 
00002490 
.  .  00002500 
00002510 
00002520 
00002530 
00002540 
00002550 
00002560 
00002570 
00002580 
00002590 
00002600 
00002610 
_  .  00002620 
00002630 
00002640 
00002650 

_  00002660 

00002670 
00002680 
00002690 
.  00002700 
00002710 
00002720 
00002730 
00002740 
'  00002750 

OOC0276  0 
00002770 
00002780 
“  00002790 

00002800 
00002813 
00002820 
00002830 
00002840 
00002850 
00002860 
00002870 
00002880 
00002890 
00002900 
00002010 
OOOU2920 
00002930 
00002940 
00002950 


IF(MPT.EU.l)  N0PT4--2 
IFtNPT.EQ.Z)  NOP r<* 

GO  TO  601 
567  CONTINUE 

NRITEC6.220) 

220  FORMAT I 1  SELECT  FAILURE  CRITERION  '*,//. 

x'  ENTER  1  FOR  HOFFMAN/ TSAI “HILL  CRITERION  ',/, 
x'  ENTER  2  FOR  POINT  STRESS  CRITERION  ',/, 

x*  ENTER  3  FOR  MAXIMUM  STRAIN  CRITERION  •,/, 

X '  ENTER  4  FOR  AVERAGE  STRESS  CRITERION' > 

READ! 5,0  N0PT4 
601  CONTINUE 

I F! N0PT4 . EQ . 2 . OR.  KQPT4 ,  EO  .4.'  00  TO  221 
DO  412  K* 1 . NL IM 

WRITE  C  6 , 222?  K  . 

222  FORMAT (  1  FOR  PLATE  NUMBER  M3,'  ENTER  RADIUS  OF  ',/» 

X'  CHARACTERISTIC  CIRCLE  AT  WHICH  STRESSES  ARE*,/, 
x'  TO  BE  COMPUTED  TO  PREDICT  FAILURE') 

READ<5.0  RCA(K) 

RCD(K)=RCA{<) 

MRCQIJT  (  K  1  >50 

IFU10PT4  .EQ.  3)  GO  10  591 
WRITE!6,834) 

834  FORMAT!'  ENTER  THE  FAILURE  INDEXES  FOR  THE  './, 
x*  HOFFMAN/TSAI -HI  1 L  CRITERIA  ' , // , 

X*  NOTE'  FOR  USING  1SAI-HILL  SET  EQUAL  THE  COMPRESSION  ',/, 
X'  AND  TENSION  ULTIMATE5  IN  SIGMA  X  AND  (  ',// 

x'  ENTER'  SIGMA  X  ULTIMATE-COMPRESSION  ',/, 

X'  SIGMA  X  ULTIMATE-TENSION  ',/, 

x'  SIGMA  Y  ULTIMATE-C0MPRE55I0N  *,/, 

x'  SIGMA  Y  ULTIMATE-TENSION 

X'  SIGMA  XY  ULTIMATE  ') 

READ! 5 , x ) (HFMCC X , K ) .  1=1.5) 

GO  TO  412 
591  CONTINUE 

WR  I  TEC  6 , 39  3)  K 

393  FORMAT! '  ENTER  MAXIM JM  STRAIN  ALLOWABLE  FOR',/, 
x*  PLATE  NUMBER  ’,1),'  ! U N I T S '  IN/IN)') 

RE A D( 5 1 x  )  5AL0WIK) 

■i  \  2  CONTINUE 

tFtttGPT4.EQ.3>  GO  I  ')  191 
I F  t  N0PT4  .  EQ . 1 )  GO  TO  391 
GO  TO  262 

221  CONTINUE 

IKN0PT4  .  EQ.2.  HR  t  T  T  C  6 . 555  ) 

I c !  II0PT4  .  EQ.4)  WRI  U<6. 556  ) 

555  FORMAT!/,'  POINT  STRESS  CRITERION  ',/) 

556  FORMAT!/.'  AVERAGE  STRESS  CRITERION  »,//. 

x*  AO  IS  THE  CHARACTERISTIC  DISTANCE  OVER  WHICH'./, 
x*  STRESSES  ARE  AVERAGED  AND  COMPAf.ED  WITH  UNNOTCHED',/, 
x'  STRENGTHS  TO  PREDICT  FAILURE') 

DO  226  K«1,NL1M 

IF(BPR.NE,n.O. AND.BPR.NE. I  0)  GO  TO  531 
WRITEI6.225)  K 

225  FORMAT!'  INPUT  AO  FOR  EACH  OF  THE  THREE  PLY  FAILURE',/, 


X  • 

MOOES  OF  PLATE 

NO' . 15./ . 

X  • 

AONT 

*  NET  SECTION 

»  ,/, 

X  • 

AOBR 

=  BEARING 

'  ,/, 

x ' 

AOSO 

=  SHEAR  OUT 

’,/) 

N 

"NUMPirm 

00002960 
00002970 
00002980 
00002990 
0000300Q 
00003010 
00003020 
00003030 
00003040 
00003050 
00003060 
0000307  0 
00003080 
00003090 
.  00003100 
00003110 
00003120 
00003130 
00003140 
00003150 
00003160 
00003170 
00003180 
00003190 
00003200 
00003210 
00003220 
00003230 
00003240 
00003250 
00003260 
00003270 
00003280 
00003290 
00003300 
00003.31  0 
00003320 
00003330 
00003340 
00003350 
00003360 
00003370 
00003380 
00003390 
00003400 
OQQQ j41 0 
00003420 
00003430 
00003440 
00003450 
00003460 
00003470 
00005480 
00003490 
00003500 
00003510 
00003520 
00003530 
00003540 
00003550 
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WR1TEC6 7 ) 

227  FORMATC  INPUT  AONT, AOBR, AND  AOSO') 

READC5, X )  DONTCIO « DOBRCIC) ,  DOSQCK)  _ _ _ 

00  TO  226 
331  CONTINUE 

WRITEC 6 i 332 )  K 

532  FORMATC '  ENTER  AO  VAIUF.S  CORRESPONDING  TO  THE..  JHRFE' 

*•  PLY  FAILURE  MODES  IN  PLATE  NO  MS,/', 


M' 

AONT  « 

NET  SECTION 

X' 

AOBR  « 

BEARING 

X* 

AOSO  > 

SHEAR  OUT.. 

WRITEC  6 , 533) 

533  FORMATC  INPUT  AONT,  AOBR.  AOSO  •) 

READCS, x)  AONT ( 1 , X ) , AOBRC 1, K) ,AOSO( 1 , K) 

A0NTC2,  K)*A0NT(1,  K)  ...  .  _ _ _ _ 

A0BRC2,K)“A0BRC1,X) 

A0S0C2  >  K ) *AOSO( 1 • K  3 
IF(K.EO.l)  WRITEC  6 , 554  ) 

554  FORMATC/,'  TO  AVOID  CENOTHY  RUN  TIMES  DUE  TO  ',/, _ 

x*  STRESS  FIELD  RECOMPUTATION  SPECIFY  THE  ',/, 

X'  NUMBER  OF  ULTIMATE  PLY  FAILURES  AFTCR 
X'  WHICH  JOINT  FAILURE  WILL  BE  PREDICTED  ',/, 

x'  ENTER i  NO  OF  ULTIMATE  FAILURES  _ _ .')  . . . 

IFCK.EQ.l)  READCS. M)  NULTF 

226  CONTINUE 

291  CONTINUE 

NOPTl*l  _  _  _ _ _ 

IF(BPR.EQ.l.O)  N0PT1 *2 
DO  229  K-l.NLIM 

IFC BPR .NE . 1 . 0 .OR. CBPR. EQ. 1 . 0 . AND. N0PT1 . EQ ,2) )  00  TO  670 
GO  TO  671  _  _ _  _ 

670  CONTINUE 

IF(CMCK) . EQ.CMC)  GO  TO  672 
WRITEC6.228)  K 

228  FORMATC/'  FOR  PLATE  NUMBER  M3,'  ENTER  THE  THREE  5TREN0THS 
*'  REQUIRED  TO  PREDICT  THE  THREE  FAILURE  MODES  ',/, 

*•  FUST- UNNOTCHED  STRENGTH  IN  TENSION  ',/, 

*'■  FHSC»UMNOTCHED  3TREN0TH  IN  COMPRESSION',/, 

X'  FSO*UNNOTCHED  STRENGTH  IN  SMEAR-OUT',//, 
x'  INPUT  FNST, FNSC.FSO  •) 

READC5.X)  AF1.AF2.AFA 
GO  TO  673 

672  WRITEC6.67A)  X 

47 A  FORMATC  FOR  PLATE  NO  M3,'  ENTER  FIBER  ULTIMATE*;/, 
x*  STRAIN  VALUES  ',/, 

x'  EPSILON  ULT  IN  COMPRESSION  ',/, 

x*  EPSILON  ULT  IN  TENSION  ’,/, 

X'  OAMMA  ULT  IN  SHEAR  " 

X'  (UNITS:  IN/IN)') 

READC5.X)  ES1(K),E52CK;,ESSCIC) 

CALI.  STRTHCH,ES1,ES2,ESS,AF1,AF2,AF4,K) 

673  CONTINUE 
AF3’AF2 
NPMIUMPLYCK) 

DO  666  11=1, NP 

PSTCC1.IL. K)»AF1  .  “  . 

PSTC<2.  IL  .XCAF2 
PSTCC3, IL ,K)=AF3 
P5TC( A , IL , K) 3AFA 

666  CONTINUE  " 


00003360 

00003570 

...00003380 

00003590 

00005600 

00003610 

_  00003620 

00003630 
0000 36 AO 
00003650 
..  00003660 
00003670 
00003680 
00003690 
. 000057U0 
30003710 
00003720 
00003730 
....  000037AO 
Q0003750 
00005760 
00003770 

_  00003780 

00003790 

00003800 

00003810 

_  00003820 

00003830 

OOOOSSAO 

00003850 

_ 00003860 

00003870 
00003880 
90003890 
',/,  U0003900 

00003910 
00003920 
00005930 
OOD039AO 
00001950 
0000.3960 
00003970 
00003980 
00003990 
OOOOAOOO 
OQOQAOIO 
OOOOA02O 
00004030 
OOOOAOAO 
00004050 
00004060 
00004070 
00004080 
00004090 
00034100 
00004110 
0000A120 
00004130 
00004140 
'  '  00004150 
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non  o  nno 


229  CONTINUE 
671  CONTINUE 

IFC  NOP T  4 . NE. 4 )  GO  10  261 

NUMBER  OF  DIVISIONS  FOR  STRESS  AVERAGING 
IS  SET  EQUAL  TO  5C 

NAVO*  50 

261  CONTINUE 

I F<  BPR . EQ , 1 . 0  )  GO  10  262 

DO  319  K'liNLIM  ..  . 

N'NUMPLYCK) 

HR I T E <  6  > 320 )  K 

320  FORMAT ( *  SASCJ  ASSUMES  A  BILINEAR  PLY  BEHAVIOR.  THE  ',/, 

b’  INITIAL  MODULUS,  Kl,  IS  COMPUTED  BY  THE  CODE.  . 

**  THE  REDUCED  MODULUS,  K2,  FOR  INITIAL  FAILURE',/. 

A  *  IN  NET  SECTION,  SHEARO'JT  OR  BEARINO  IS  COMPUTED',/. 
a*  BY  THE  FORMULA  K?  "  AL  PHAAKl .  ',//, 

A'  FOR  PLATE  HUMBER  ',15,'  INPUT  ALPHA  VALUES  FOR  ',/,..  . 

A'  NET  SECTION.  SHEAROIJT  AND  BEARING  FAILURE  ') 

READ! 5, » )  AF1.AF2.AF3 
00  321  t»l.N 
DELNS(I,K)*AF1 
DEL  BR ( I , K  >* AF2 
DEL  SO ( I , K ) ’ AF3 

321  CONTINUE 
HRITEC6, 389) 

3B9  FORMAT! '  INPUT  SCAl t  f ACTORS  FOR  P  ULTIMATE  ',/, 

*'  CALCULATION  SUCH  1  MAT  PI UL T )• BETA AP( INITIAL  )',/ , 

»'  INPUT  (1ET A 1  FOR  NIT  SECTION  UlTIMATE  './. 

•'  BETA2  FOR  BEARINO  ULTIMATE 

a*  BETAS  FOR  SHEAROUT  ULTIMATE  ») 

READ! 5. a  ]  PALT(3. <) .PAL T< 2.K), PALTU ,K> 

319  CONTINUE 
391  CONTINUE 

IF(BPR.NE.O.O)  GO  TO  262 
DO  312  K  s 1 . NL 1M 
OAMDL ( K  > -  1 0 . 0 

I  F  (  CMC  K  )  .  NF. .  CMC  )  UO  10  312 
HR1TEC6.2S1)  K 

231  FORMAT!/, •  INPUT  I M  t  APPROXIMATE  INTERLAMINAR  SMEAR  STRAIN',/, 

»•  ultimate  for  delamination  prediction  in  plate  no  sis./. 

«'  (UNITS:  IN/IN)  ') 

READ! 5. A)  OAMDL (K) 

312  CONTINUE 

262  CONTINUE 

CASE  HEADIHO 
MR  I  TEC  6  .  1  AS) 

143  FORMAT!///, 1QX, 'PROORAM  SASCJ',//) 

IFCNSDLS.EQ.  1 ,  AMD .  6PT1 .  NE  .  1 . 0)  WRITE(6,633) 

I F( NSDLS . EQ . 2 . AND . BPR . NE  .  1  .U>  HR  I  TEC  6, 634) 

633  FORMAT! 2X , ' A  SINOIE  LAP  SHEAR  JOINT  MILL  BE  ANALYZED',/) 

6  54  FORMAT  C  2X , 'A  DOUBLE  LAP  SPEAR  JOINT  WILL  BE  ANALYZED',/) 
IFCBPR.EQ.O.O)  WRIT  E(6 , 86 1  ) 

IFCBPR.EQ. 1.0)  MRI T  E ( 6 , 882 ) 

IFCDPR.HE.O.O.AHO.BPR.HE.l.O)  WRITE(6,B83)  BPR 

881  F0RMATC2X. 'WITH  A  LOADED  HOLE',/) 

882  F0RMATC2X, 'WITH  AN  OPEN  HOLE',/) 


00004160 
00004170 
00004180 
00004190 
00004200 
00004210 
00004220 
00004230 
00004240 
00004250 
00004260 
00004270 
00004280 
00004290 
00004300 
00004310 
00004320 
00004330 
00004340 
00004350 
00004360 
00004370 
00004380 
0QQ04390 
00004400 
00004410 
00004420 
00004430 
00004440 
00004450 
00004460 
00004470 
00304480 
00004490 
00004500 
00004510 
00004520 
COOOn.530 
00004540 
00004550 
00004560 
00004570 
00004580 
00004590 
00004 jOO 
00004610 

OOOua6i_Q 

ooori'.so 

00004640 
00004650 
00004660 
00004670 
00004680 
00004690 
00004700 
00004-10 
00004720 
0  00  04  7  3  0 
00004740 
I1 0004750 
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883  FORMAT { 2X . 'WITH  A  PARTIALLY  LOADED  HOLE',/, 

*2X, 'BYPASS  RATIO  ■  ',09. 3,/) 

IFCLTNCM  .  EQ .  1)  WRITEC6 , 823 >  . . . 

I F( LTNCM . EQ . 2 )  HRITEC6.824) 

823  FORMATC2X. 'LOADED  IN  STATIC  TENSION',/) 

829  F0RMATC2X. 'LOADED  IN  STATIC  COMPRESSION'./) 

00  805  I'l.NLIM  .  . .  . 

HRITEC6.600)  1 

300  FORMATdOX, 'PLATE  NO  M3,'  '',/) 

WRITEC6.689)  (MTL(I.J). J'1.13) 

689  FORMAT C2X,15A4>/)  - - - 

HT»iJ?LYCI>*H<I) 

WMTP.t  6.602)  NT 

602  FORMAT (2a,  ' T  *  ',D9.3,'  INCHES',/) 

HRITEC6.603)  E1C I) , E2CI ) .01 2C I ) . V12CI), V21CI )  . . 

4JJ  F0RMATC2X, 'MATERIAL  PROPERTIES',/,/, 

«10X, 'El  , D9. 3. '  PSI ' ,/, 

X10X,'E2  * ' , DC . 3, '  PSI',/, 

*10X, '012  «',D9.3, 1  PSI',/,  _  - 

xlOX, 'NU12«',D9.3,/, 

M 1 0  X ■ ' NU21* ' , D9 1 3, / > 

605  CONTINUE 

I F <  DPR  ,  EQ  •  1  •  0)  CO  TO  708  _  _ _ 

HR1  TEC  6 ,606 ) 

606  FORMATdOX, 'FASTENER'',/) 

HRITEC 6 ,607 )  CMTK3.J), J«1.1S) 

607  F0RMATC2X.15A4,/)  .  .  .  _  .  . . 

HR  I  TEC  6 , 608 )  FASO 

608  FORMATC 2X» '  DIAMt TER  «  '.D9.3,'  INCHES',/) 

WRITEC6.609)  FASc.FASV 

609  F0RMATC2X, '  MATERIAL  PROPERTIES',/,/  _ . . 

" 1  OX. ' E  i',D9.3,'  PSI',/, 

*1  OX , 'MU* ' , D9 . 3,/ ) 

?08  CONTINUE 

HR ITEC 6 , 923 )  _ _  _ 

923  FORMATC//, IOX, 'FAILURE  ANALYSIS', /> 

I FC  N0PT4 , E9 . 2 . OR . NOPTA . EO. 9 )  00  TO  821 
IFCN0PT4.E9.3)  GO  TO  821 
NR  I  TEC  6, 6 22) 

622  F0RMATC2X, 'THE  HOFFMAN/TSAI -HILL  CRITERION  MILL  BE  USED',/) 
DO  623  J»1,MLIM 

HRITEC  6 .629)  J.RCACJ) 

629  FORMA T ( 2X. 'PLATE  NUMBER  *,I3,//,  „  _ 

"2X. 'CHARACTERISTIC  RADIUS  »',D9.3,T  INCHES') 

HR  I  TEC  6 , 790  > 

790  FORMATC/. 16X. '  ULTIMATE  STRESSES'  ',/,/, 

XI  OX, ' TENSION', 18X, 'COMPRESSION') 

HR  I  TEC  6 ,625 )  CHFMCCI.J),  I  »1 , 5) , HFMCC  5 , J ) 

625  FORMATC/. 2X, 'SIOMA  X  •  ',D9.3,'  PSI ' , SX, ' SIOMA  X  * 

XD9.3,'  PSI',/, 

*2X, 'SIGMA  Y  «  ' , D9 . 5, '  PSI ', SX, ' SIOMA  Y  «  *, 

*09.3,  ’  PSI',/, 

x2X, 'SIOMA  5  *  ',09.3,'  PSI ', 5X, ' SIOMA  S  •  ', 

'09. 3,  '  PSI '  /  ) 

623  CONTINUE 
00  TO  627 

621  CONTINUE 

IFCHDPT9. E0.2)  WRITEC6.628) 

628  FORMAT  C2X, 'A  POINT  STRESS  CRITERION  HILL  BE  USED',/) 

I F C NOPTA . EQ.A)  HRITEC6.558  ) 


00009760 
00009770 
00009780 
00009790 
00009800 
00009810 
00009820 
00004830 
00004840 
00004830 
00004880 
00004870 
00004880 
00004890 
00004900 
00004910 
00004920 
00004930 
00004940 
00004950 
00004960 
00004970 
00004980 
00004990 
00005000 
00005010 
.  00005020 
00005030 
00005040 
00005050 
00005060 
00005070 
00005080 
30005090 
00005100 
00005110 
00005120 
00005130 
00005140 
00005150 
00005160 
00005170 
00005180 
00005190 
00005200 
00005210 
00005220 
00005230 
00005240 
00003250 
00005260 
00005270 
00005280 
00005290 
00005300 
00005310 
00005320 
00005330 
00005340 
00005350 
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non  oor* 


5S8  FORMAT!  2a  .  'AN  AVERAGE  STRESS  CRITERION  HILL  BE  USED'./) 
DO  631  I  *  1 . ML IM 
WRITEC6,632)  1 

432  F0RMATI2X, 'PLATE  NUMBER' , 15*/) 

NP»NUMPLY! I) 

HRITE(6.713) 

713  FORMA?'/, 2X, 'LAMINATE  STRENOTH',/) 

774  WRITE<6«677  )  (PSTCUi  ,1*1),  11*1, 4) 

477  F0RMAT!2X, 'NET  SECTION  ULTIMATE  (TIN)  ■•*09.3,'  PSt',/. 
M*  NET  SECTION  ULTIMATE  (COMP) » • , 09 . 3. *  PSI'./. 

X2X, ' BEARINO  ULTIMATE  »',D9.3,'  PSI',/, 

*2X, ' SHEAROUT  ULTIMATE  «',D9.3.*  P5X»,/> 

IFdPR.NE.O.O.  AND .  BPR  .  NE .  1 . 0 )  00  TO  S41 
HRITE(6 , 644? 

644  F0RMATC2X, 'CHARACTERISTIC  DISTANCES  '*/)  _ 

HfiITE!6,<S4S>  DON  T  C I ) . DOBRt 1 ) *  SOSO! I ) 

443  FORMAT! 2X, *  UOMT  «  '.D9.S.'  INCHES',/. 

»2X.'  D08R  •  ',09.3,'  INCHES',/, 

*2X. •  OOSO  «  ',09.3, '  INCHES',/) 

00  TO  431 
361  HRITE«6.362> 

562  FORMA Tf  2X, 'CHARACTERISTIC  OISTANCES ' , / ) 

WRITE' 6,  56  4)  AQNTU , 1  ) ,  AU;  .(1 , 1 ) , AOSOI 1 , 1 ) 

554  FORMA T(2X, '  AONT  »  ',09.3,'  INCHES',/, 

»•  AOBK  «  ' , D9 . 3, '  INCHES',/, 

*'  A350  »  ',09.3,'  INCHES',/) 

631  CONTINUE 
GO  TO  627 

821  CONTINUE 
WRITEI6 i 822 ) 

822  F0RMAT(2X, 'MAXIMUM  STRAIN  CRITERION  HILL  BE  USED',/) 

DO  887  1 1  < 1 . ML  1 M 

WRITEC6.858  )  1  1  . RCA (II) 

858  FORMAT ( 2X, 'PLATE  NUMBER  '.IS,//. 

»2X. 'CHARACTERISTIC  RADIUS  •',09.3,'  INCHES') 
NRITE(6,823>  SALON!  II  ) 

823  FORMAT!/, 8X, 'STRAIN  ULTIMATE  «  '.09. 3,'  IN/IN'./) 

887  CONTINUE 

627  CONTINUE 

C 

CALCULATE  THE  PLY  FOUNDATION  MOOULI  AND 
v.  FAILURE  LOADS 

C 

‘I8P«  1 

imf’R  NE  0  O.AND.BI'R  ME. 1.0)  HBP«2 
1  F  t  II  BP  EO.  1)  NLIM2M 
CO  71  L OP* 1 , NL IM2 
DU  22  IL'l.MBP 
DO  20  K.  =  1 ,  NL  IM 

INITIALIZE  PARAMETERS  FOR  COLLOCATION 

NT 1 7 
NQUT  *  30 
NCOL  *  1 0 

MfliMOUmxMCOl 
CONTINUE  CASE  HEADING 
IF(LOM.OT.l)  00  TO  23 


00003360 

00003370 

00003380 

00005390 

00003400 

00003410 

00005420 

00005430 

00003440 

00003450 

00003460 

00003470 

00003480 

00005490 

00003300 

00003510 

00005520 

00003530 

00003540 

00005530 

00003560 

00003570 

00003380 

00003590 

00003600 

00003610 

00003620 

00003630 

00003640 

00005630 

00003660 

00003670 

00003600 

00005690 

00003700 

00003710 

00003720 

00003730 

00003740 

00005730 

00005760 

00003770 

00003780 

00005790 

00005800 

00003810 

00005820 

00005830 

00003040 

000051 50 

00005860 

00005870 

00005880 

00005890 

00003900 

00005910 

00005920 

000 0  *<9  TO 

00005940 

00005950 
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IFdl.EO.fc)  00  TO  25 
HR1 TE(6 , 87 i )  K 

871  FORMAT!/. 5X. '  GEOMETRY  OF  FLATS  NO 
WRITEI6 .872) 


XS.-'-»',/) 


872  FORMAT ( '  COORDINATES  OF  CORNER  VERTEXES  ',/> 

IF(K.EQ.l)  HRITE(6,875)  XC(K,2>,YCCK,2>,XC<K,3).YC<K.3> 
IF(K.EQ.l)  HRITEU.874)  XC(K. 1),YC(K,1).XC(K»4)<YC(K.4) 
IF(K. EQ.2)  WRXTEC 6,375)  XC(K, 3) , YC(K, 5) . XCCK, 2 ) , YCCK, 2) 
IFU.EQ.2)  HRITK6.874)  XC(K.4).YC(K.A).XC(K.l).YC(K.l) 

875  FORMA T ( 2X. F7 .3.'»,,F7.3*10X.F7,3»,*,,F7.3»/) 

874  FORMM^X.FT.S.'.'^.S.IOX^.S.'.'.FT.S./)  _ 

AXD*AXM2. 

HRITEI6.87J )  AXD 

873  FORMAT! •  FASTENER  HOLE  DIAMETER  ■  ',09.5.'  INCHES'./) 

ED*DAB3!XC(K. 5)/AXD)  _ _  _ _ 

WD«DAB3!CYC!X,3>-YCU,4)>/AXD) 

WRITE! 6 .735)  ED 

753  FORMAT ( •  E/D  RATIO  «  '.D9.5.X) 

WRITEC6.879)  WD  _ _  _ 

879  FORMAT! 1  H/D  RATIO  ■  '.09.5./) 

25  CONTINUE 

PROCESS  INPUT  DATA  ON  PLATE  GEOMETRIES  _  _ 

WTH»YC(K.  J!)-YC!K»  1) 

LM1 *L0M 

CALI  P0lY!JK,!!,XC.yC,W,A3T, NCOL.lTNCN.IPR.il) _ 

CALL  CIRC(W.AST. JK.K. LTNCM.BPR.XL ) 

IF( N0PT4 . EQ . 1 . OR . N0PT4 . EO , 3 )  CALL  RCOUT(X) 

1F(N0PT4.EQ.2)  CALL  PSTRSStK. LTNCM.BPR.XL) 

IF!M0PT4.EQ.4)  CALL  AVSTRS(X.LTNCN.NAVD.IPR.IL) _ 

PERFORM  FINITE  GEOMETRY  ANALYSIS  FOR  STRESS/DXSPIACEMENT 
STATE.  COMPUTE  FOUNDATION  MODULI  AND  FAILURE  VALUES 

CALL  FIOEOHCM.R.NOPT4.ITT)  . . 

IF( BPR . NF . 0 . 0 . AND . BPR . NE • 1 < 0 . AND. XL . EQ . 1 )  GO  TO  21 
IF(BPR.NE.l.O.AND.LOM.'.E.l)  CALL  FBOLT< AMOK . M. R . NQPTl . LMl ) 

21  CALL  FCRIT<SALOH.H, NTH. AST. K. N0PT1.N0PT4.IPR.NAVD.IL) 

20  CONTINUE 

22  CONTINUE 

i  Ft  3PR . EO. 1 ■ 0)  00  TO  410 


PREPARE  INPUT  FOR  SEQUENTIAL  PLY'FAILURE 
PREDICTION 

IF(LOM.OT.l)  00  TO  61 
N*NPLY! 1 ) 

DO  50  1*1, N 
M«  IPLY< 1,1) 

50  PlYK! I )*AN0XIM,1) 

M*NPIY!2>  ' 

DO  60  I *1 , N 
N  l  •  I +  NPLY { 1 ) 

N2* IPLY< 1.2) 

60  PlYKtMl  >«ANGK!N2.2> 

61  CONTINUE 


CAI.CUI  ATION  OF  FASTENER  STIFFNESSES . 


00005940 

00003970 

00003980 

00003990 

00006000 

00006010 

_  00004020 

00004030 
00004044 
00006030 
.  00006060 
0000607Q 
00006080 
00006090 

_ 00006100 

00006110 

00004120 

00004130 

_ 00006140 

00004130 

00006140 

C0004170 

_  00004180 

00004190 

00004200 

00004210 

_ 00004220 

00006230 
00006240 
00004230 
.00004260 
00006270 
00004280 
00006290 
00004300 
00004310 
00006320 
00006330 
00004340 
00006330 
00006340 
00006370 
00006380 
00006390 
00006400 
00006410 
00006420 
00006450 
00006444 
00006430 
00006460 
00006470 
00006480 
00006490 
00006300 
00006310 
00006320 
00006350 
00006340 
00006530 
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FAS0*FASE/<2.*<1.+FASV>) 

FASLAM*S.M(1.0+FASV>/<7.*S.MFASV) 

FASR«FASD/2 . 

FASA*AC0S( -1 . )mFA5Rmm2 
FA31 *AC0S( “1 . )MFASR»M4/4. 

FASSS* FAS LAMM FA SQM FAS A 
FASBS^FASEMFASI 

INITIALIZATION 

IF(LOM.OT.l)  00  TO  72 

ITT«0 

NTFL^O 

JNTM  . . 

P»0, 

DELP'1000 . 

JO  3012  1*1.100 

NPNM< I . 1 ) ■ I  .  . 

NPNM( I , 2) r l ♦NPLYC 1 ) 

UUC  I  MO. 

QAMN( I ) *0 , 

M0AMP<I)«0. 

MDAMI ( I ) >0 . 

PN< 1 ) *0 . 

BARK(I)«0. 

3012  BARU(I)*0, 

72  CONTINUE 

INCREMENTAL  LOAOS  TO  PLY  FAILURE.  PLY  FAILURE 

MODES.  AND  FRACTIONAL  STIFFNESS  LOSSES  ARE  . 

CALCULATED  FOR  EACH  PLY  PROM  TOP  TO  BOTTOM 
UNTIL  FINAL  JOINT  FAILURE 

90  CONTINUE  . . . 

ITT ■ I TT+l 

CALL  CENTDI R . H. FASSS. FASBS. P. DELP. ITT) 

CALL  SQLVECU.H.P. DELP.NSDLS. ITT) 

CALL  FAIL (OAMDL.l'.H.P, DELP, BPR. AST. WTH.PPAIl.ANQLE, NODE, 
Ml ROUT , N0PT4.NUITF. JNT . ITT.NTFL ) 

CALL  PRINTCU.P, DELP. PFAIL.ANOLE, BPR, NODE. IROUT.JNT, 
MHP.NSDL3.ITT) 

IFIJNT.EQ.O)  00  TO  410  . 

IFOILIM2.EO.I)  00  '.0  90 
I  Ft  NT  FL  .EQ.Q.AND.‘:LIM2.GT.1>  00  TO  90 
71  CONTINUE 
410  STOP 
END 


SUBROUTINE  STRTHtH.ESl , ES2. ESS, AF1 , AF2, AF4, R) 
IMPLICIT  REALmB(A-H.O-Z) 

DIMENSION  AINV(3,3).AVN(1),H(2),NV(3) 

DIMENSION  NPLYI2 ) . NUMPL , * ?) , ANO( 3 , 2 ) . IPLYt 100 ,2) 
DIMENSION  WM2S>,PSMX<  3)  .SI  (  2  > ,  ES2(2 ) .  ESS(2 ) 
DIMENSION  E1(2),E2(2>. 012(2). V12(2),V21(2) 
COMMON/LYP/HPLY,  NUMP'.Y  ,  ANO,  IPLY 
COMMON/MCO'El , E2, 012  .V12.V21 
COMMON/ AMI  ''A 


00006560 

00006570 

Q0006580 

00006390 

00006600 

00006610 

00006620 

00006630 

00006640 

00006630 

00006660 

00006670 

00006680 

00006690 

00006700 

00006710 

00006720 

00006730 

00006740 

00006730 

00006760 

00006770 

00006780 

00006/90 

00006600 

00006810 

00006120 

00006830 

00006840 

00006830 

00006860 

00006670 

OOOOCuSO 

00006890 

00006900 

00006910 

00006920 

00006930 

00006940 

00006930 

00006960 

00006970 

00006980 

00006990 

00007000 

00007010 

00007020 

00007030 

00007040 

00007030 

00007060 

00007070 

00007080 

00007090 

00007100 

00007110 

00007120 

00007130 

00007140 

00007150 
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COMPUTE  LAMINATE  FAILURE  LOADS  BASED  ON  MAXIMUM 
FIBER  STRAINS  FOR  EACH  FAILURE  MODE 


CALL  AMATRX(H.K) 

N*3 
I DOT* A 
IA*S 

CALL  LXNV2f(A«N, XA, AXNV, XDOTtHK, 1ER) 

DO  100  KK* 1 i S 
DO  10  11*1,3 
NV( 1 1 )  *0 

10  AVN( 1 I )*0 . 0D0 

IPUK.EO.l)  NV<n*l 
IF(KK . EQ, 2 )  NV<1)«-1 
IFUK.EQ.3)  NV(3)*1 
DO  13  11*1,3 
DO  IS  JJ*1 , 3 

AVN( IT ) *AVN( XI)+AINV(IX,JJ)XNV(JJ) 

IS  CONTINUE 
MP*NUMPLY<KS 
SMX*0 , 000 

RAD*DARCOS( *1 . 0D0 1/110 . 000 
DO  ZS  11*1, NP 
TH*ANO< II, KlMRAD 

E11*DC0SCTH)MM2MAVN(1)«AVN(Z)MDSIN(TH)MN24. 

»DCOS(TH)AOSIN<TH)«AVN{3> 

IF(KK.NE.l)  00  TO  «S 
CPRT*E11/ESZ(K) 

00  TO  30 

OS  IF(KK.NE.Z)  00  TO  73 
EPRT«I11/E3UK) 

00  TO  SO 

73  EPRT*EI 1/ESZ(K) 

SO  CONTINUE 

IF(DABS(SMX).LT.DABS{EPRT)>  3MX-EFRT 
23  CONTINUE 

IF( DAB'3 1 5MX) . OT .  1 , 00-10)  00  TO  339 
PSMX(KK)*ESS(K)M012(K) 

00  TO  100 
SS3  CONTINUE 

PSMXI KK ) *DAB3( 1 . DDO/SMX) 

100  CONTINUE 

AFi«psMxm  — ' 

AFJ*PSMX<2) 

AF4*P3MX( 3) 

RETURN 

END 


SUBROUTINE  POLYT J , K . XC. YC.M, AST.NCOL , LTNCM, BPR , IL ) 
IMPLICIT  REAL»tU-H,0-Z) 

DIMENSION  XCI2,3>,YC<2,3),Alt400),A2I400),X»<400> 
DIMENSION  Y8(400),T(400),A1A(4),A2A(4) 
COMMON/CMTl/XB, YB, A1 , A2 , T 

ARRAY  COLLOCATION  POINTS  AROUND  EXTERIOR  BOUNDARY 
AND  APPLY  STRESS  BOUNDARY  CONDITIONS 


00007130 
00007170 
00007180 
00007190 
00007200 
00007210 
.  00007220 

00007230 
00007240 
00007250 
00007230 
00007270 
00007280 
00007290 
00007300 
00007310 
00007320 
00007330 
00007340 
00007330 
00007330 
00007370 
..  00007380 

00007390 
00007400 
00007410 
.  .  .  00007420 
00007430 
00007440 
00007430 
.  00007430 
00007470 
00007400 
00007490 
....  00007 300 
00007310 
00007320 
00007330 
00007540 
00007S30 
00007560 
00007570 
00007580 

-  00007590 

00007300 

00007310 

00007320 

-  00007330 

00007640 

00007390 

00007330 

00007370 

00007680 

00007390 

00007700 

00007710 

00007720 

00007730 

00007740 

00007750 
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DO  120  M.,4 
Al  At  I )*0  , 

A2A1I )«0  . 

120  CONTINUE 

W<DABS<YC<K1 2)“YC(K 
IFUTNCM.EO.l)  A I A  ( 
I  F( ITNCM . E0 . 2 )  A 1 A ( 
IFtBPR.NE.0.0)  A 1 A ( 
I F( !L . EQ . 2 >  A1A<3)' 
AST<OABS<A1A< i>> 

J<0 

XC( K , 5) *XC< K 1 1 ) 
YC<K,5)*YC<K> 1 ) 

PI <DARCOS< -1,000) 
DAT'PI/NCOL 
DO  10  I <1.4 
X«XC<K.I)-XC<K.IM> 
Y»YC<K, I ♦ 1 ) -YC<  K . I ) 
I  F ( X . EQ , 0 . )  X<l.D-6 
I  F<  Y . EQ , 0  .  )  Y* 1 . D-6 
TH>  OA 1 AN2<  Xi Y ) 
TH«tM*l80./DARCO3<- 
OX *( XC( K .  I  +  l  l-XGU. 
DY* ( YC( K , I <1 )  -YC<  K , 
00  20  1  1  *  1 1 NCOl 
J»J*1 

IF<  I .  EQ.  1  .OR.  I  ,EQ 
YB( J  )  ■  YC ( K>  X  ) 
X»<JPXC<K.:>+DXH  I 
IFUl.EQ.l)  XBU*** 
00  TO  24 
21  CONTINUE 

IF<XC(K.  3I.NE.0.0) 
IFU.NE.i)  00  TO  2*i 
ADT  *DAT» 1 1 
X B <  J )  <YC( Ki 3 )  »DCOj( 
YB<  J)»YC<K,S)»U3II.< 
T  H  •  f  <  P I  /  2  .  )  ♦  A/1T  )  *  I  A 
on  TO  24 
26  CUNTINUE 

Ylt(  J  )  -  t(.  <  K.  1  H  JY«  i  I 
IFt 1 1 .SQ.  M  YB< J)  • , 
X B < J I ’XC(K.  I ) 

24  T(JI>IH 

Al  (  J  MM  At  I) 
A2<J)».',2A<I) 

0  CONTINUE 

0  CONTINUE 

RETURN 
END 


.1)1 

1  ><1000. 0 
1  X-1000.0 
3 ) *A1A< 1 ) 
0.0 


0  l  DM 

I  >>s(NCOlH) 
1  )  >/<MCOLM  ) 


)  00  TO  23 
I  *  S  * 

C(  X , l )+<  OX/2  . ) 


..(I  10  26 


<  r  T  •?  )*AOT) 
.11.  2  .  )  ♦  A  OT  ) 
n  -hi 


i  • 

C i A . I ) ♦<  DY/2  .  ) 


SUBROUTINE  CIRC< W. AST . JK . K, ITNCM, BPR, II ) 

IMPLICIT  REAL  *8<  A-H , 0-2 ) 

DIMENSION  X(400)>Y(4OO)i THTA<400) » Al<4O0)»A2< 400) 
DIMENSION  XB(400).YB(400) 


COMMON/ F  B  1<*  B5TR i  X3T  R 
COMMON/CMTI/XB.YB, Al .A2.THTA 
COMMON/CM  T2/X » Y»  NPST  .MAST 


00007760 
00007770 
00007780 
00007790 
00007800 
00007810 
00007820 
0QQQ7I30 
00007840 
00007830 
00007660 
00007E7  0 
00007880 
00007690 
00007900 
00007910 
00007920 
00007930 
00007943 
00007950 
00007960 
00007970 
00007980 
00007990 
00008000 
00008C 1 0 
00006020 
00008030 
0000804(1 
00008030 
00008060 
00008070 
00008060 
00008090 
00008100 
00008110 
00008120 
00008130 
00008140 
00008150 
00008160 
00008170 
00008180 
00008190 
00008200 
00008210 
00008220 
00008230 
00008240 
00008250 
00008260 
00008270 
00008280 
00006290 
00008300 
00008310 
00008320 
00006330 
00008340 
00008350 
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COMMON/ Ew. /A,I,N 

ARRAY  COLLOCATION  POINTS  AROUND  INNER  BOUNDARY  .... 
AND  APPLY  BEARINO  STRESS  IN  A  COSINUSOIDAL 
DISTRIBUTION 

CON»-l . 0  .  ...  _  ...... 

XSTRmAST 

BSTR* ( 2 . MWNXSTR )/( DARCOS(CON)MB ) 
IP(BPR.NE.O.O.AND.BPR.NE.l.O.AND.XL.EQ.l)  BSTR-0.0 
IF(BPR.EQ.I.O)  B5TR«0.  ...... 

NM4»N-4 
NQ»NM4/4 
DO  20  I ■ X  * N 

JK»JK*1  _ _ 

THM ( 1-1  )*2+l )» CARGOS ( CON )/N 
X( I ) *AMQCOS( TH) 

Yd  )  ■  BM  DSINdH ) 

C3»-Xd>N6MB/<Yd)MAMA> 

IFtYdy  .OT.O)THTA<JK)«DATAN<C3)-DARCOS(CON>/2. 
IP(Yd).LT.0)THTA(JK)«DATAN(CSHDARC0S(C0N)/2. 

THTA ( JK ) » THTAC  JK)M1B0 ./DARCOS(CON) 

IFUTNCM.EQ.2)  00  TO  23  .  _ 

IFd . OT . ( NQ+l ) , AND. I . LT . (N-NQ) )  00  TO  204 
00  TO  30 

23  IFd  .  LE .  ( NQ+2) .  OR.  I .  OE. (N-NQ- I i )  00  TO  204 

30  CONTINUE  _  _ 

All JK ) *0 . 

A2( JK)*0 . 

X8( JK)»X< I ) 

YBUKXYd)  ...  . . . . . 

04  IF( Yd ) . OT , 0 . )  TETA«ARC0S(-1.  )-OATAN<Yd)/Xm) 

IF(Yd).LT.O.)  TETA*ARC03(  -1 .  )  +  DAT  A  N  C  Y  C I  )/Xd  ) ) 

AlCJKi"  —  X . OMBSTRMDABSC  DCOS(TETA) ) _  _ 

A2(  JK )»0 , 

XB(JK)-Xd) 

YB< JK)«Y( I) 

20  CONTINUE  _ 

RETURN 

END 

SUBROUTINE  RCOUT(K)  _  _ 

SPECIFY  COORDINATES  AROUND  CHARACTERISTIC  CIRCLE 
AN  WHICH  STRESSES  ARE  NEEDED  FOR  THE  HOFFMAN/ 
TSAI-HILL  FAILURE  CRITERIA 

IMPLICIT  REALMS! A-H.O-Z) 

DIMENSION  X!  400 )• Y! 400) >RCA(2)>RCB(2)>NRC(2) 
C0MM0N/CMT2/X,Y,NP5T,NAST 

COMMON/RC/RCA. RCB • NRC  - 

COMMON/ELP/AX.  BX.NOUT 
RAD*DARCOS! -0  > ID1 )/180 . 

N1«NRC!K) 

DO  40  1*1 iNl 
T I NCR *360 ./NRC(K) 

THF.T  A*  ( I  —  1 )  MTINCRMRAD 
C'DCOS'THETA) 

S-DSINC  THETA)  - - - - 


00003360 
00003370 
...  00000380 
00008390 
00008400 
00008410 

_  00008420 

00008430 
00001440 
00008430 
00008460 
00008470 
09008480 
00008490 
.— .00003300 
00908310 
09008320 
00008330 
..  00008540 
00UO8530 
00008360 
00008370 

_  00008380 

00008390 

00008600 

00008610 

_  00008620 

00008630 
00008640 
00008630 
00008660 
00008670 
00008680 
00008690 
_  00008700 
00008710 
00008720 
00008730 
,  00008740 

'  00008750 

00008760 
00008770 
00000700 
00008790 
00408800 
00008810 
00008820 

. .  00008830 

00008840 

00008850 

00008860 

-  00008870 

00008880 
00008890 
00008900 
00008910 
00008920 
00008930 
00003940 
. .  00008930 
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K*0SQRT<  i  ./'((C*.'f2/HCA(K)KM2)  +  (S*K2/RCB<K>»«i(2j)> 
XUHIOUT  >--R*0C03<THETA> 

Y(I*N0UT)*RXDSIN(THETA) 

40  CONTINUE 
RETURN 
END 


SUBRrjTINE  PSTRS3<K,NCS.BPR,IU 

SPECrYDISCRETE  COORDINATES  OF  POINTS  AT  NHICH 
STRESSES  ARE  REQUIRED  FOR  THE  POINT  STRESS 
CRITERION 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  X<400  >.Y<400>, DONTI 2 > , OOBRT 2 > 

DIMENSION  DOSO( 2  ) , NPl Yt  2) . NUMPl Y( 2 ) >  ANO( S>  2) 

DIME' SION  IPLYt 100.2) ■  AONT( 2>  2 ) , AOBR( 2 .2) , AOSOC  2, 2 ) 

COMMuN/ELP/AX, BX.NOUT 

CUMI10M/CMT2/X  Y  ,  Ill'S  f  ,  MAST 

C0NM0N/P301/DQNI ,D03H  DOSO 

COMMON/L YP/UPk  Y  ,  NUMPL  Y ,  4*10.  IPLY 

COMMON/ A  OV/ AOIIT,  AUOrt. AQ50 

ANT--DONT(K) 

ABR«t)0BR(K> 

AS0« DO SOt K ) 

IF(BPR.EQ.O.O.QR.BI'R.LQ.I.O)  00  TO  23 
ANT • AONT ( t  L i K  ) 

ABR* AOBR ( IL  >  X  ) 

ASO'AOSOni  ,K> 

S  CONTINUE 
L»N0'JT*1 
SO1 1  ,0 

IFOICS.EQ  1)  SO«-l.U 
X(  L ) a  0  . 

Y(L)«AIIT*BX 

X(  L  M ) ’30»  I AXtABK ) 

''<l  +  n*0 

X( L  +  2 ) a  so*  <  AX* ASO  > 

Y(L*2>*BX 
NP5 T  « 5 

DO  555  I  J 1 , 5 
L  *NI)IJT  H'll  -II 
RETURN 
END 


SUBROUTINE  AVSTRSI K . NCS , NAVD, BPR . IL  ) 

SPECIFY  COORDINATES  OF  POINTS  ALONQ  HHICH 
STRESSED  i^ILL  BE  AVERAOED  FOR  THE  AYIRAQE 
STRESS  CRITERION 

IMPLICIT  RCAlM(A~H,0-Z) 

DIMENSION  XI  400>,Y(40Q>, DONTI 2 ) , OOBRI 2 ) 

DIMENSION  00301  Z), NPL Yt 2), NUMPl  Y< 2) , ANO< 3. 2 ) 
DIMENSION  IPLYI 100, 2 ) »  AONT<  2, 2 ) >  AOBRC  2. 2  )  ,4050(2,2) 
COMMON/ AOV/AONT, AOBR, AOSO 


00008940 
00008970 
00008980 
00008990 
00009000 
00009010 
00009020 
00009030 
00009040 
00009050 
00009040 
00009070 
00009080 
00009090 
00009100 
000091 1 0 
00009120 
00009130 
00009140 
00009150 
00009160 
00009170 
00009180 
00009190 
00009200 
00009210 
00009220 
00009230 
00009240 
00009230 
00009260 
00009270 
00009280 
00009290 
00009300 
00009510 
00009320 
00009330 
00009340 
00009350 
00009360 
00009370 
00009380 
00009390 
00009400 

0900941 0 
90009423 
00009430 
00009440 
00009450 
00009460 
00009470 
00009480 
00009490 
0000950  0 
00009510 
00009520 
00009530 
00009540 
00009550 


hnnonnnn  non 


c 


COMMON/EL.  /AX»8X» NOUT 
COMMON/CMTZ/X  > Y,  NPST ,  NAST 
C0MM0N/PSC1/D0NT ,  DQDR, DOSD 
COMMON/LYP/NPLY » NLIMPLY.  ANG.  IPLY 
ANT*DQNTt K) 

ABR*D0BR(K) 

AS0*D0SG(K) 

IF( BPR . EQ . 0 . 0 .OR . BPR .  EQ .  1 . 0 )  00  TO  23 
ANT'AQNT { II , K) 

ABR«A08RCIL.K) 

ASO*AOSO( IL«  K) 

25  CONTINUE 
L-NOUT 
SO»l.O 

IFCNCS.EQ.l)  SG»-1.0  .  ... 

AN DO* ANT/ FI OAT (NAVD ) 

DO  20  1*1>NAVD 
L*l  +  1 
X( L ) *0 . 

20  Y(L)«8X+AND0/2.*U-1)XAND0 
ANSO*ASO/FIOAT(NAVD) 

DO  30  I*1.NAVD 

L *L  +  1  _  , 

X( l )*SCx<  BX+ANSO/2 . ♦( I -1 )HAN3Q> 

30  Y(L)*BX 

ANBR*ABR/FL3AT(NAVD) 

DO  AO  1*1. NAVD 
L*L+1 

X C  L ) =SG*( AX+ANBR/2 . ♦  (  1-1 > MANOR) 

AO  Y( L  )*0. 

NAST«3KNAVD 

N1*N0UT+1 

N2«N1+NAST 

NN«NCUT+3*NAVD 

RETURN 

END  - 


SUBROUTINE  FIOEOMt H.KJ , NQPTA , ITT) 


FIGEOM  PERFORMS  A  FINITE  GEOMETRY  ANALYSIS 
USING  THE  BOUNDARY  COLLOCATION  TECHNIQUE 


IMPLICIT  REAI «8<A-H,0-Z> 

DIMENSION  A(3.3).UK(25>.AI(3,3),AZ(5),HKK(12I),BC(A00> 
DIMENSION  CH(A)tH(2) 

COMPLEXMU  ORHST 122  > 

COMPLEX)*  16  CM<  196 , 124) , CMC( 196  « 121 )  «CMCTCM(121 , 121 ) ,  RHS(  12)  > 

COMMON/ROOT5/R1.R2 

COMMON/ TERMS/ PI >  91 1 P2»  92 

COMMOU/ELP/AXi BX.NOUT  .  "  ■"* 

COMMON/SER/NT , NB 
COMMON/AMT/A 

COMPLEX* 16  Z(A),Z1.Z2.Q1.Q2»P) ,P2>k1,R2»NA(1ABB8) 


00009560 
00009570 
.  00009580 
00009590 
00009600 
00009610 
....  00009620 
00009650 
000096AQ 
00009650 
03009663 
00099670 
00009680 
00009690 
....  U0009700 
00009710 
00009720 
00009730 
QOOQ97AO 
00009750 
0000976U 
0UO0977Q 
00009780 
00009790 
00009800 
00009810 

_  00009820 

00009830 

000098A0 

00009850 

_  00009860 

"  00009870 

OOCQ98DO 
00009890 
000099(10 
00009910 
QQ009920 
00009930 
000099AU 
'  00009950 
00009960 
00009970 
00009980 

.  00009990 

00013000 
00010910 
00010020 
"  00010030 

OOOIOOAO 
00010050 
00010060 
*■'  00010070 
00010080 
00010090 
00010100 
00010110 
00010120 
00010130 
OOOIOIAO 
00010150 
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C  AMA1RX  CALCULATES  THE  LAMINATE  'A'  MATRIX 
C 

CALL  AMATRXC  H . A J  ) 

'  =  1 

.dgt=4 

-AiJ 

C 

C  l INV2F  INVERTS  THE  'A*  MATRIX 
C 

CALL  LINVZFCA.N.IA, A1 . I  DOT, UK, IER) 
f'DEO*A 

A2<l)«Ai;i.I >/AI(2,2) 

A2l2)s-2.»AI«1(3)/At(:.2) 

AU  51*(2.»AIU.2>»Al<  J,3)  )/AI<2.2> 

AE(4)--2>AIt2,3)/'AI(2,2)  _  .. 

A£( 5 ) s 1 . 0  00 
C 

C  ZRPOL Y  FINOS  THE  ROOTS  OF  THE  CHARACTERISTIC  EQUATION 
C 

CALL  ZRPOL Y( AZ . NDEU ■ Z . IER ) 

C 

O  Zl2)  AND  Z<4)  ARE  THE  COMPLEX  CONJUGATES  OF  Ztl) 

C  AMD  Z(i.l  RESPECTIVELY 

£ 

R 1 :  Z  (  1  ) 

R2-Z( 5) 

C 

C  I  HE  TV.O  ROOTS  MUST  b  CHECKED  FOR  A  UNITARY  COMPONENT 

C  IN  EITHER  THE  REAL  .i»  IMAGINARY  PARTl  SUCH  AN 

C  OCCURANCE  SIGNIPIF.  „  QUASI -ISOTROPIC  LAYUP  AND 

C  THE  VALUE  MUST  BE  PER1URBED  SLIGHTLY  IN  ORDER  TO 
C  AVOID  A  SINGULAR  MATRIX 

C 

CH ( 1  >=R1 

CH( 2  ) 5 ( 0 . 0 . •  1  .  0  1  *R 1 
CH ( 1 )  -  R 2 

ch(4j=(o.o,-i.oj»r: 

CO  30  U<=1.4 

IF(DABS(CHtIJK)).l  t  i.OD-lOJ  CH( IJK)*1 .00-10 
AR--DA3S(CHt  IJK)  ) 

I  F (  Ah' .  l  E  1  0  )  GO  TO  U 
GO  TO  52 

51  IFffl  0-AR  )  . LT . 0 . 32)  r.Mf  IJK)  =  0.98 

(  3  *  n  »  g 

: 7  :ei:ar-i  oj.lt. o  ozi  ch(uk>  =  i.02 

SO  CONTINUE 

R 1  -  OCfIPl  X(  CH(1  )  ,CH<  2 ' ) 

R2-DCI1PIX(CHC3)  ,CH(  4)  ) 

C  CONSTANTS  Pl,P2,Ql.Q2  ARE  NEEDED  FOR  STRESS  CALCULATIONS 
C 

PI  = All U  UKR1KK24A1C1 ,2>-At( 1.  3T*R1 
P2-  A  I( 1  .  1  )  «R2»».U  AT  t I ,2 )-AI< 1 . l)lR2 
QUAI(2,2)/Rl*AIn  ,  „,»RW.U  2,1) 
Q2*AI(2.2)/R2*AI(I,2>*f!2-  \I<2,1) 

C 

C  INPUTS  A  I N I ( I ) . A I  M2 Cl)  ETC.  REFER  TO  BOUNDARY  CONDITIONS 

C 

NT4  =  4  »NT 
NTS  --8»NT 


00010160 
00010170 
03010180 
00010190 
00010200 
00010210 
00010220 
00010210 
00010240 
00010250 
00010260 
00010270 
00020230 
00010290 
00010300 
00010110 
OOOlUlZU 
00010110 
00010340 
00010150 
00010160 
00010370 
00010180 
00010190 
00010400 
00010410 
00010420 
00010410 
00010440 
00010450 
00010460 
00010470 
00010480 
00010490 
00010500 
00010510 
00010520 
00010510 
00010540 
00010550 
00010560 
00010570 
000 1 0  58  u 
00010590 
00010600 
00010610 
00010620 
00010610 
00010640 
00010650 
00010660 
00010670 
00010680 
00010690 
0001070C 
00010710 
00010720 
00010710 
00010740 
00010750 
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uuo  uuu 


c 

c 

c 


NT8P4=8*N  i  44 
NT8P2»8*NT42 

NT8P1*8KNT+1  ...  -  - 

NB2*2*NB 

NWK*NTBP1 <<NT8P142 ) 

CAL L  CMAKBCi CMCTCM, CMC, CM, RHS , ORHS , NT4 , NT8, NT8P4, KT8P2. 

1NT8P1, N82<NWK<HA< HKK<AI<N0PT4< KJ,  ITT)  . . . 

RETURN 

END 


SUBROUTINE  AMATRX(H.K) 

ASSEMBLE  THE  A  MATRIX  _ 

IMPLICIT  REALHSIA-H.O-Z) 

DIMENSION  A( 3, 3  ) , ANO( 5, 2) , Hf2) , NPIYI2) » NUMPLYC  2) 
DIMENSION  E1<2).E2C2),<312<2),V12C2),V2LC2)_. 
DIMENSION  IPtmOO.2) 

COMMON/MOD/EL , E2. 01 2,  VI2,  V21 
COMMON<'LYP/NPLY,NUMPLY»  AND,  IPLY 

COMMOM/'AMT/A  .  . .  . 

THKNES*NPLYCK)KH(K) 

DEN0  =  l.-E2CK)ltV12<K)NRZ/El(K) 

OU«EI(K)/DENO 


Q22*E2(K)/DEN0  . . .  .  - 

Q12*V12t KJKQ22 
Q21*Q12 
033*0121 K) 

DO  10  1*1.3  _ _ _  _ _ _ 

DO  10  J*  1 . 3 
10  A( I • J ) *0  . 

NN*NPLv(K) 

DO  20  1*1, NN  _ _  _  _  _ 

T*H(K) 

IP- IPLYI I , K) 

THTAI*ANO(LP.K)KDARC0S(-l.D0)/180.D0 

CsDCQS(THTAI )  .  ..._ _ _ 

SSD5IN(THTAI ) 

A(1 . 1 )*(  QU*C*K4+2. *<01242 . *0 33>KC*C*S«54Q22*S*»4)KT4A<1 , 1 ) 

A< 2, 2 )*< 011*5**442.* <01242. *933 >«C*C*S*S4Q22MC**4)«T4A<2. 2) 

All  . 2 )«<< 0114022-4. *Q33)*C*0*S*S4qi2*<C**44S**4))*T4AU, 2)  ... 

A(  2 , 1 ) * A ( 1 , 2 ) 

A<  3, 3  )*<  < 011+022-2 . *012-2 . *033)*C*C*S*S4033*<C**445**4) >*T4A(  S, 3) 
A<l.S)«<<Qll-012-2.*Q33)*C**5*S4<912-022+2.*Q53>*S**3*C>*T4A<l,3) 
A<2, 3)*<  (Oil -01 2-2 . *033 )*S**3*C+< 91 2-922+2 . *033)*C**3*5)*T+A(2,3) 
A( 3, 2) *A ( 2, 3 ) 

A( 3, 1 )*A( 1,3) 

20  CONTINUE 

DO  53  1*1,3  . .  . . . . . 

DO  53  J*  1  >  3 
ACI«J)*A<  I, J)/THKNES 
53  CONTINUE 

RETURN  _ _  .  _ 

END 


SUBROUTINE  CMAT< BC, CMCTCM, CMC. CM.RHS, ORHS. NT4,NT8,NTSP4,NT6P2, 


00010760 
00010770 
00010780 
00010790 
00030800 
00010810 
00010820 
00010830 
00010840 
00010830 
00010860 
00010870 
00010880 
00010890 
.00010900 
00010910 
onni n«?n 
00010930 
00010940 
00010950 
00010960 
00010970 
00010980 
00010990 
00011000 
oooiioia 
00011020 
00011030 
00011040 
00011030 
00011060 
00011070 
00011080 
00011090 
00011100 
oooimo 
00011120 
00011130 
00011140 
00011150 
00011160 
00011170 
00011180 
00011190 
00011200 
00011210 
00011220 
00011230 
00011240 
00011250 
00011260 
00011270 
00011280 
00011290 
00C11300 
00011310 
00011320 
00011330 
00011340 
00011350 
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1NT8P1  ,NB<. ,  NWK, HA.WKK . AMAT  ,NQPT4,KJ,ITT) 


CMAT  OUTPUTS  STRESSES,  STRAINS,  AND  DISPLACEMENTS 
AT  SPECIFIED  COORDINATES 


IMPLICIT  REAL*8(A-H,0-Z> 

DIMENSION  RCA( 2 ) , RCB( 2 ) » NRCOUTC  Z ) 
DIMENSION  ASX t  400 ) , AS XT (400) 
COMMON/ XX Y 1 / ASX ,  ASXY 
C0MM0N/R00TS/R1.R2 
COMMON/ TERMS/PI , 01 ,  P2 , 02 
COMMON/CMT 1/X , Y, AIHI , AIN2, THTA 
CQMMDN/CMT2/X0UT , TOUT , NPST, NAST 
C0MM0N/FB2/FUR, FTHT.FSMR 
COMMON/QNT/RTHT , REPX , REPY, REPXY 
COMMON/RC/RCA , RCB . NRCOUT 
COMMOII/ELP/AX,  BX,  HOUT 
COMMON/SER/NT.N8 


DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
C0MPIEXK16 
CQMPL  EXX 16 
C0MPIEXM16 
COMPLEXHU 
C0MPIEXX16 
C0MPLEXX16 
C0MPLEXX16 
COMPLEX* 16 
A’AX 
B*BX 
C0*<0. 0,1.0) 

R  B 1 1 3  < 01-P1*R1 )/( A 
RB21»(Q2-P2*R2)/( A 


THTA(400),X(400),Y(4'JO),  AMAT  (3,5) 

AIN  1(400), AIN2(400),BC(NB2) 

XOUT(400>, Y0UT<400) ,WKK(NT8P1> 

FURC400) ,FTHT(4O0),FSMR(AO0> 

RTHK400  )  ,REPX<  400),  REPY<  400),  REPXY  (400) 

CMCTCM( NrBPI,NT4Pl),RHS(NT8Pl),PH7 1 D.PHI2D, XETAl , XETA2 
CMC  NB2,  NT8P4  ) ,  CMC(  NB2,  NT8P1 ) ,  21,2.2, 211,  Z22,Rl,R2 
T11,T12,T21,T22,P11,P12,P21iP22 
P1.P2.01 ,0Z,DCMPLX,C0,CSUM,GRHSCNT8P2) 

PHI  1  DP , PHI2DP . PHI 1DN, PHI2DN 
PHI1P.PHI2P,PHI1N,PH12N,PHI1,PHI2 
SV11,SV12.SV21,SU22,RB11,RB21,RB11BiRB21B 
R1B.RZB,P1B,P2B.Q1B,Q2B,NA(NMK) 


CO*Rl*B) 

COoRZMB) 


REALR1 =R1 
REALR2=R2 
REAlPl-Pl 
REAL  PZ  =  P2 
REALQ1-Q1 
REAL  Q2  =  02 
RRB1 1 =RB1 1 
RRB21 *RB2I 
AIM0R1 »C0*R1 
AIMOR2*CO*R2 
AIM0P1 ®C0*P1 
AIMOP2=CO*P2 
AIMGOl *CO*OI 
AIM002»CO*02 
ARB11*C0*RB11 
ARB21=C0*RB21 
R1B5DCMPIX(REALRI , AIMORI ) 
R2B= DCMPL X( REAL R2, A IM0R2) 
PI B*DCMPL X( REAL  PI . AIM0P1 > 
P2B 1 DCMPL  X( REAL  P2 , AIMOPZ ) 
OlBsDCMPLXCREALOl, AIMGOl) 
02B * DCMPL X( REAL Q2, At MGQ2 ) 


00011360 
00011370 
00011380 
00011390 
00011400 
00011410 
00011420 
00011430 
00011440 
00011430 
00011460 
00011470 
00011420 
00011490 
00011500 
0001)310 
00011320 
00011530 
00011540 
00011550 
00011560 
00011570 
00011380 
00011390 
00011600 
00011610 
00011620 
00011630 
00011640 
00011630 
00011660 
00011670 
00011680 
00011690 
00011700 
00011710 
00011720 
00011730 
00011740 
OOC 11750 
00011760 
00011770 
00011780 
00011790 
00011800 
00011810 
00011820 
00011830 
00011840 
00011850 
00011860 
00011870 
00011880 
00011890 
00011900 
00011910 
00011920 
00011930 
0001 1940 
00011950 


,v.‘ 

s' 


s 

N 
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1 


R B 1 1 B 3 DCi  i.  c X (  RRB1 1  <  ARB  1 1 ) 

RB218*DCMPLX(RRB21 <  ARB21 ) 

JJJ“0  .  .  _ _  _ 

DO  1000  1*1, NB 
J»l*2 

THTAI aTHT At  I JMDARCOSC -1 .  ODOV1SO .  DO 

C*DCOS( THTA1 )  .  _ _  _ 

S*DSIN(  THTAI)  . 

PU«C*P1+S*01 

P12*C*P2+S*Q2 

P21— S«P1+C*Q1  _  _ 

P22*-SXP2+CXQ2 

Tll»<CXCXRl*Rl+S*S-2.KC>tS*Rn 

T12*<CXCXR2*R2+S*S-2.*C»IS*R2> 

T21*<-CXSXR1XR1+CXS-<CXC-S*S)XR1>  _  . 

T22*<-CX5XR2XR2+CXS-(CXC-S*S)XR2> 

21  *X< I )+RlXY< I ) 

Z2«X(I)+R2XY<I> 

ZU*CDSQRT<2lxZl-AxA-RlXRl*BxB)  _ 

Z22’CD3QRTC22X22-AXA-R2XR2*BXB> 

REAL  1 *21 1 
A IMOl » -COxZl 1 

IF<DABS<REAL1).IE.1.D-16)REAL1«O.ODO 

IF(DADS(AIMOl).LE.l.D-16)AIMOl*0.0DO . 

21 1 ■DCMPLXt REAL  1 , AiMQl ) 

REAL2*222 

AIMO2*-C0XZ22  _  „ 

IF(DAB3(REAL2).LE.1.D-16 )REAL2*Q . ODO  . 

IF(DABS(AIM02> . L  E . 1 . D— 1 6 )AIMG2*0 . BDO 
222*DCMPLX( REAL2, AIM02 ) 

XETA1MZ1+Z11 )/( A-CQXR1 X8)  _  _ 

IF(CDABStXETAl) . LT . 0 . 999 )  00  TO  500  — 

00  TO  510 
500  Zlln-Zll 

XETA1»(Z1+211 )/( A-COXTlXB) 

510  XETA2*(Z2+Z22)/U-C0XR2XB)  . 

I FtCDABS ( XETA2) . LT . 0 . 999)  00  TO  320 
00  TO  530 
320  Z22*-222 

XETA2M 22+222 )/(A-C0XR2«B) 

330  CONTINUE 
JJJ*JJJ+1 

NORMAL  A  TANOENTIAL  STRESS  BOUNDARY  CONDITIONS  ARE  IMPOSED 

DO  5  N«i,NT 
NP*N 

CM(J-1.N)*NPXXETA1XXNPXT11/Z11  - 

CM(  J-l  ,2XNT+N)«NPXXETA2XXNPXT12/Z22 

CM<J,N)*NPXXETA1X»NPXT21/Z11 

CMtJ.2*NT+N)«NPXXETA2XXNP*T22/Z22 

NN*-N  *  . . .  . 

CMtJ-l  ,NT+N)=NNXXETA1XXNN*TU/211 
CMt J-l .5xNT+N)aNN*XETA2xxNNXT12/Z22 
CMJ,NT+N)»NN*XEIAlx*NNxT21/ZU 

CM(J, 5mMT+N)»NNxxETA2xxNNRT22/Z22  - 

5  CONTINUE 

CM<  J-1.NT8  +  1  )»T11/ZU 
CMtJ-l, NT8+2)aT12/Z22 

CMU,NT8  +  1)*T21/Z11  '  -  - 


00011960 
00011970 
00011980 
00011990 
00012000 
00012010 
00012020 
00012030 
00012040 
Q001205U 
00012060 
00012070 
OtlU)  2080 
00012090 
00012100 
00012110 
00012120 
000121  TO 
00012140 
00012130 
00012160 
00012170 
00012180 
00012190 
00012200 
00012210 
00012220 
00012230 
00012240 
00012250 
00012260 
00012270 
00012280 
00012290 
00012300 
'  00012310 
00012320 
00012330 
00012340 
00012350 
00012360 
00012370 
00012380 
00012390 
00012400 
00012410 
00012420 
00012430 
00012440 
00012450 
00012460 
00012470 
00012480 
00012490 
00012500 
00012310 
00012520 
00012530 
00012540 
00012550 
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CM<  J,HTJ  +  <.J  =  T22/222 
1000  CONTINUE 

00  195  1*1. HB2 
DO  196  j=i.MT4 
REAL  1 “CMC  I .  J  J 
AIMOl'-COXCMCl.J) 

I FC  DABSC  REAL  1 ) .  L E .  1 . 9-16) REAL  1*0.000 
I  Ft DABSC  AIMOl ) . LE. 1 . 0-14 ) AIM01*0 . OOO 
CM( I .  J  )  *  DCMPLXCREAL 1 .AIMOL ) 

AIM02*-AIM01 

CMC  I , NT9  + J  ) 1 DCMPLXCREAL 1 .AIM02) 

196  CONTINUE 
195  CONTINUE 

DO  295  1*1, HB2 

DO  296  J* 1,2  .  _  _  _ 

REAL  1 “CMC  I , NTS* J  )  " 

AIM01»-C0«CMCI.NTa*J) 

IFC DA BSCREALIJ.LE. 1.0-16 )REAL 1*0. 000 
IFCCA83C  :  MOi  >  ,  LE.  1.  0-16  ) AIMOl  *0 . 000 
CMC  I ■ NT! *  J ) « DCMPLXC  REAL  1 .AIMOl ) 

AIM02’-»tfNil 

CMC  I ,  ,N  T  !  J  )  'DCMPLXC  REAL l , AIM02) 

296  CONTINUE 
295  CONTINUE 

SV11JCP2>IQIB-Q2*P1B)/CQ1*P2“02*P1  ) 
3V12*CP2»Q2B-<32*P28)/<QIJ»P2-92*PI ) 
3V2l8(01»PlB-(31B*Pl)/'(01*P2-92RPl ) 
SV22«(01*P2B-02B»Pn/<Ql*P2-Q2«Pn 
DO  119  1*1, hB2 

IMPOSE  RIGID  BODY  ROTATION  CONDITION 

CMC  t , 2*MT+1  )*-CM< I » l  )KRB21/RB11>CM(  1 , 2RNT+1 ) 
CMCI.4KNTM  )«-CM(I,l  )  *RB  1 1 B/RBIH  CH<  I ,  ARNT+l ) 
CMC  1 , 6  *NT*1 )*-CM( 1 . 1 )XRB218/RB11+CM< I,6*NT+1 ) 
CM<I.l)»<0, 0.0,0) 

IMPOSE  SINOLE-VAL'JEDNESS  CONDITION 

CM(  I ,  MTS  +  J  )  *CM(  I ,  NT8-H  JiSVliKMC  I ,  NTS*  J) 

CM( l.MTS+AJ'CMC I.MTB+l )  *SV12+CMC l.NTB+4) 

CMC  I . NT8  +  1 ) *CMC ! . NTS+2 ) *SV21*CMC I ,  NT8*3 ) 

CMC  I ,  NT  3*9  )  'CMC  I .  NT8+2) *SV22*CMC  I , NT8*4 ) 

CMC  I .  MT44-1  J  *C  0 . 0.0.0) 

CMC  t,NTB*2)«C 0.0, 0.0) 

119  CONTINUE 

DO  191  1*1. NB2 
DO  192  J *2 , NTS 
192  CMC  I , J - 1 ) *CMC I , J ) 

CMC  I . NTS ) 'CMC  I , NT8+!) 

CMCI.HT8+1)*CMCI,NT4+9) 

191  CONTINUE 

DO  95  I-1.NB2 
00  96  J*1 , NT8P1 
REAL  1 'CMC  I >  J ) 

AIMOli-CONCMCI.J)  “  - 

I FC  DABSC REAL  1 ) . L E . I . D-16 )REAll*0 . OOO 
IPCDABSCAI MG l).LE.liO~16)AIMO 1*0.000 
CMC  I, J) 'DCMPLXCREAL 1. AIMOl) 

AIMG2*-AIM01  •  '  ‘ 


00012560 
00012570 
000)2580 
00012390 
00012600 
00012610 
00012620 
00012610 
00012640 
00012650 
00012660 
00012670 
00012680 
00012690 
00012700 
00012710 
00012720 
00012710 
00012790 
00012750 
00012760 
00012770 
00012780 
00012790 
00012800 
.  00012810 
00012820 
00012810 
00012890 
OOC128SO 
00012860 
00012870 
00012880 
00012890 

_  00012900 

00012910 
00012920 
00012910 
00012990 
"  00012950 

00012960 
00012970 
00012980 
00012990 
00011000 
00011010 
000)1020 
•  *  00011010 
00011090 
00011050 
00011060 
00011070 
00011080 
00011090 
00011100 
*■'  00015110 

00011120 
00011110 
00011140 
”00011150 
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CMC( I ,  J  )  '•  u^MPl XCREAL1.AIMG2) 

00013160 

96 

CONTINUE 

00015170 

95 

CONTINUE 

00013180 

DO  120  I  >1  >  118 

00013190 

j*r»2 

00013200 

8C(J-1)«AIH1<I) 

OO'USZIO 

120 

BCCJ)»AIN2CI ) 

00013220 

DO  100  I  •  1 . IIT8PI 

00013230 

DO  100  J  >1 1 NT8P1 

00013240 

C5UM«<0. 0,0.0) 

00013250 

DO  110  K *  1 , N82 

00013263 

110 

C5UM=CMCCK.I  )»CmX,  Jl+CSOM 

00013270 

CMCTCMC I , J ) *C5UM 

00013280 

100 

CONTINUE 

00013290 

DO  130  I*l,MT8Pi 

00013500 

C5UM*(0. 0.0.0) 

00013310 

DO  140  K  =  1 , NB2 

00013320 

140 

CSUM*CMC ( K , I  )  *BC( K  '*C:SUM 

00013330 

150 

rhsciucsum 

00013340 

I J  0  B  a  0 

00013330 

M«1 

00013360 

CALL  lEQZCICMCTCM.'lfSPl ,NT8Pl , RHS.M, NT8P1 , I JOB, WA, WKK, IER) 

ORHSC1  )«-(RHS(Z»NI U R 82 !♦ RHS( 4*NT > *RB 11 B+RHSC 6 *NT ) MR821B >/RBl 1 

00013370 

00013380 

ORH3C8MNTH  > --RHSC  8  »HT  )  i»SVl  1»RHS(  8*Nm  >*SV1 2 

00013390 

ORH3(8*Nr*2>  »RHS<a«NT>*SV2l  +  RHS(8>'Nm  >*5V22 

00013400 

DO  151  1 1 2 ■ N  T  8 

00013410 
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QRHSC 1 > s  RH3C 1*1 ) 

00013420 

00013430 

STRESS  AND  STRAIN  CALCULATION 

00013440 

00013450 

00013460 

NRC3*N0UT ♦ 1 

I F<  N0PT4 . EQ . 1 . OR . HOPT4 . EQ . 3 )  NRCF«NOUT*NRCOUT(KJ  > 

00013470 

IF<  N0PT4 . EQ . 2)  NRCF«NOUT+NPST 

00013480 

1F( NOPT4 . EQ . 4 )  NRCF'NOUT+NAST 

00013490 

DO  190  K«1,NRCF 

00013300 

Zl*XOUT<K)*Rl)*YOUTtK) 

00013310 

22  *X0UT  <  K  M-R2XYOU  T  (  K  > 

00013320 

211*CDSQRT<Z1"21-AnA  -R1 *R1*U*B ) 

00013330 

Z22*CD30RT(22X22-A»A-R2*R2XB"B) 

00013540 

XETAl»(21*/.ll  )/(A  C0*R1»B) 

00013550 

1F(CDAB3(XETA1).LT. 0.999)  00  TO  400 

00013360 

GO  TO  410 

00013370 

400 

21 1*-Z11 

00013580 

XETA1*(Z1+Zll)/(A-C0*R1»B) 

00013590 

410 

XF.TA2»<22f222)/(A-C0xR2AB) 

00013600 

IF(CDAB3(XETA2).L1 .0999)  00  TO  420 

00013610 

00  TO  430 

00013620 

420 

222*-222 

00013630 

XETA2«<22»222)/<A-C0XR2*B) 

00013640 

430 

CONTINUE 

00013630 

PHI1DP*(0. 0,0.0) 

00013660 

PHI2DP-(0. 0,0.0) 

00013670 

PH  11  DIN  <0.0, 0.0) 

00013680 

PHI2DM*<0. 0,0.0) 

00013690 

PH11PX0. 0,0.0) 

00013700 

PH12P*(0. 0,0.0) 

00013710 

PH I  IN* CO. 0,0.0) 

00013720 

PH12N»(0. 0,0.0) 

00013730 

DO  170  NU.MT 

00013740 

NP*N 

00013730 
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NN=-M 

PHI  1  DP !NP»<EVA 1 ••HP ‘CRHSC  N  >/Z 1 1 *PHI 1  DP 
PHI  1  Dll  :IUHXEf  A1  *»NN  •CKH5(NT*M  )/Zl  1*PHI )  1*1 
PHl20P  =  IIP*XETA2»»MP*r.RH5<2'«NT*N>/Z22*PHi:!DP 
PHI  2DNrNN*XErA2N*NN'<GRHS(  3XNT  +  N1/Z22  +  PHI2DN 
PHI lPsXETAl*»NPXORHj(N)*PHIlP 
PHIlN*X£TAli*NNN»<GRH3<NTfN>+PHllN 
PHI2P  =  XETA2'*»NPXORh3(2t<MT*H)4PHI2P 
PHI2tl*XETAZX»NNXOI<H3(3XNT  +  N)tPHI2N 
170  C0I1TIMUE 

PHI 1DJPHI1DP*PHI1DU*GRH3(8*NI ♦11/211 
PHI2D*PHI2nP+PHI2DlltGRHS(Si«NT  +  2  WZ2 
PHI  1  *  PHI  1 P*PH I  lH+ORHr.<a<HT*l>»CDlOO(XETAi  ) 
PHI2’PHI2P'*'PHI2N*ORHS{8<NT*2)»COtOO(XETA2) 

30MAX«2.  X<Rl*Rl*PHHDfR2lR2«PHI2D) 

3GMAY*2 .H(PHI1D*PHI20) 

S0MAXY»-2.*(RI*PMI1D*R2»PHI2D) 

EPSX*AMAT(  1.1)  X3GMAX*  AMAT  (  1  >  2  >  XSGMAY  +  AMAT <  l .  3) <SCMAXY 
EP5Y»AMAT  <  2 • 1 >  *SOMAX*AMAT I 2»2) *5GMAY*AMAT( 2*  3) XSGMAXY 
EP5XY*AMAT( 3, l ) *5GMAX f AMA I < 3. 2 ) X 3GMAY+ AMAT ( 3 . 3 > XSGMAXY 
0»2,X«P1*PHIUP2»PHI2> 

V»2.K<Q1'«PHI1M}2'*PHI2> 

PI* DARC03 ( • 1 . DO  ) 

I F<  XOUT ( K ) . OT . 0 . . AMO . YOUT ( K ) , OT , 0  ,  ) 

♦ TSTAA*0ATAN< YOUT (KI/XOUTCK))* 180  ,/Pl 
I  PI XOUT ( K  )  . I T . 0  .  AND  YOUT ( K ) . GT . 0 .  ) 
♦TETAA*DATAN<YQUT<Kl/XOUT<X) 1*180 ./PI+180. 

I F  (  XOUTC  K) ,  IT  .  0  .  .  AMD.  YOUT  (R1.1.T.0. ) 

♦  TETAA«OATAM(YOUT(K).  XOUTU)  1*180  ./PI*  180. 

IF< YOUT ( K 1 .11 .0. . AMD. XOUT (K1.OT.0.) 

♦TETAA«DATAN( YOUT U)/ XOUT! X) 1*180. /PI+S60. 

C*DC05( TETAAXPI/180. I 
S«DS1M(TETAAXPI/180.  ' 

3OMAR*CXX2h50MAX*5«*2*3GHAY*2.«C*S>iSOMAXY 
SGMAT*3kx2a50MAX*O  * 2*SOMAY-2 . *C*S»SOMAXY 
GGMART  «~C«5  •SGMAX*r.  *  3  *3GMAY*( CKX2-5**2  )*30MAXY 
EPSR*CxxZ*EPSX*S»»?*rPjYfCxS*EP3XY 
EPST»3n*Z»CPSX*C*.’2'‘eF3Y-C*3i«eP3XY 

EP3Rr*Z. «(-C*5iEP5X*C«SXEPSY*(Cii»2-5M*Z>*(EP5XY/Z.  1) 
UR,U*C*Vi*S 
RTHT ( K  1 « TETAA 
REPXI X  )  =  £P3X 
REPYIK  )«EPSY 
REPXYI K  1  *EPSXY 
A 3X1 K  )  »3GHAX 
A3xY ( K ) *30MAXY 
FUR( K ) *UR 
FTHTI R  1  • TETAA 
F3MRI K 1 *SGMAR 
190  CONTINUE 
RETURN 
END 


SUBROUTINE  FBOITI ANOK . H ,  K , M0PT1 . 1  HI ) 


FBOIT  CALCULATES  THE  INDIVIDUAL  PLY  FOUNDATION 
MODULI  AND  THE  INDIVIDUAL  PLY  LOADS 


00013760 

00013770 

00013730 

00013790 

00013800 

00013310 

00013820 

00013830 

00013840 

00013350 

00013860 

00013870 

00013880 

00013390 

0001390(1 

00013910 

00013920 

00013930 

00013940 

00013950 

00013960 

00013970 

0001 3980 

00013990 

00014000 

00014010 

00014020 

00014030 

00014040 

00014050 

00014060 

00014070 

00014080 

00014090 

00014100 

00014110 

00014120 

00014130 

00014140 

00014150 

00014160 

00014170 

00014180 

00014190 

00014200 

00014210 

00014220 

00014230 

00014240 

00014250 

00014260 

00014270 

00014280 

00014290 

00014300 

00014310 

00014320 

00014330 

00014340 

00014350 
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C 

c 


IMPLICIT  REAL *81 A-H . C -2 ) 

DIMENSION  ATETAA<400>, ANG< 5 , 2 > , AS10RC 400 > , ASIORTI 490 > , H<2) 
DIMENSION  A3IGM400), AS  IG2(  4  00  > .  AS1G6I  4Q0> ,  UR1400 ) .  AN0»U3. 2> 
DIMENSION  FSMRI 40U),PLXPT(100> 

DIMENSION  IPLY(100#2)<NPLY(2 ) »NUMPLY( 2  > 

DIMENSION  FKICIQOI.PLXUOO) 

DIMENSION  Ell(2),E22(2)tESS(2 > > PMU12C 2 ) > PMU21 ( 2) 

DIMENSION  RCA<2).RCB(2) .NRCCT) 

COMMON/ STRESS/ AS  I  OR, ASIGRT, ASIGl, AS102, ASIU4 

COMMON/ EIP/ AX. BX.NOUT 

COMMON/ FBI /B5TR.X5TR 

COMMON/ 1 YP/ IIPL Y.  NUMPLY,  ANO»  IPLY 

COMMON/ FB2.' UR  , AT  ETAA ,  FSMR  _ _ 

COMMON/MOD/ E I 1.E22, ESS, PMU12.PMU21 
COMMON/RC/RCA  ■  RCB,  IIRC 
COMMON/  FCT/ PI,  XPT 
RAD*DARCOO< -0 . 101  i/UD, 

THKTOT'MPLYIKXHU) 

UN 'NUMPLY  t  K ) 

CALCULATE  DELEFF 

WORK'O, 

PLOAOX'O. 

IFU.EQ.l)  PL  D*C ,  .  .. 

DO  210  KK  *  1 .  NOUT 
TH1*ATETAA(KK+1 )-ATETAA<KK) 

TH2«(ATETAA(RK)+ATETAA(KK+I)>/2. 

THETA«TH2KRAD 
C*  DC03C  THETA  > 

S'OSINC THETA ) 

R'OSQRTU  ,/f  C*»2/AX»P2'S>l*?/BX*F2) ) 

FORCE* ( ( FSMR( KK )*FSMR( KK+1 J  )/2 . )mRNTH1MRADMTHKT0T 
WORK *WOPK>FORCEi<  .  5*(  I  UR( KK)+UR(KK+1 )  )/2 .  ) 
PLOADX»PLOADX<FORCE*C 
210  CONTINUE 

PLD'PLO+PLOADX 
DEL  EFF«WORK/PLOADX 


COMPUTE  PLY  STP.ESSES  FROM  LAMINATE  STRAINS 
( SIOMAJR, U,RO  *  ( 9 ) * ( EPS )R>  0*  RO 


NN'MPLYtK  ) 

DO  100  J *  1 1 NN 
LP*IPLY(J,K) 

THETA*ANG( l P>  K)MRAD 
L  1 1  *  I 
L I 2*N0UT 
NCAS*  1 

CALL  QMATXIK , L 1 1 . 1 12 , NCAS , NQPT1 , RAD, THETA > 


INTEORATE  AROUND  CIRCULAR  BOUNDARY  FOR 


00014360 

000k  4370 

00014380 

00014390 

00014400 

00014410 

Q001442Q 

00014430 

00014440 

00014A90 

00014460 

00014470 

00014480 

00014490 

00014SQQ 

00014510 

00014520 

00014530 

00014540 

00014550 

00014560 

00014570 

00014580 

00014590 

00014600 

00014610 

00014620 

00014630 

00014640 

00014650 

00014660 

00014670 

00014610 

00014690 

00014700 

00014710 

00014720 

00014730 

0Q01474Q 

00014750 

00014760 

00014770 

00014780 

00014790 

00014800 

00014810 

00014820 

00014830 

00014840 

COO  148  50 

00014860 

00014870 

00014880 

000148SO 

00014900 

00014910 

00014920 

00014930 

00014940 

00014950 


135 


c 

c 

c 

c 


indivioum.. 

MOGUL  I 


PLY  LCAD3  AND  COMPUTE  FOUNDATION 


70 


ion 


110 


NMN*H2-l 

PLQADX’Q. 

WK»0,  .  .. 

DO  70  I«II1.NNM 
THl«ATETAAd  +  l)-ATETAAd> 
TH2*<ATETAAd)»ATETAAdd>)/2. 

THETArTH2*RAD  . 

C  =  DCOSt  THETA  > 

5*051111  THETA) 

R«D53RTU  . /<C'"«2/AX>iR2+5*»»2/BX*)»2>  > 
F0RCR:dASlGRd)+ASlGRd  +  i))/2. ) *R*TH’  «RAD*H( K) 
FClRCRT  * ( ( ASIO^T ( I ’ *AS IORTC I ♦ 1 ) >/2 , )NRXTHlKRAD*HtK) 
PlOADX*l*lOAOX*!‘ORCR»C*FORCRT»S 
CONTINUE 

K I C  J  ) » r»AB3<  PL  OADX.'L  H<  K )  «  ) ) 

I"  J  ♦  f  :<*  1  )  »MPL Y(  1 ) )  '•I’LUADX 
IfiTI.VJE 
:ir»m;::PLy{K> 
nnjnplyoo 
DO  110  I  • 1 . NT 
DO  110  1 I ■ 1 . NN 
IFdPLYdl.K)  .  EQ  .  II 
IFdPLYdl.KJ.EQ.l) 

CONTINUE 
HP»NUMPIYU> 


212 

611 


C 

C 

C 

c 

c 

c 

c 

c 

c 


ANQKt  1 1 X  )  *FK  I  < 1 1 1 
PLXPTd)JPLX( I !♦<  K-l )*NPIY( 1 ) ) 


COMPUTE  TOTAL  SEARING  LOAD 


IFtK.EO.l)  00  TO  611 
PlXT0T»0. 

TH"H(  i  HNPl  Yd)  <H<21<INPIY<  2) 
8LOAO,(BSTRmDAI,COj<-1  .  ODO  )  *8XNTH  >/2  , 
1IN«NPLY<1  )*NPLY(2) 

DO  212  I«1.MN 
PI.XTOT*PLXTOT  +  PLXd) 

CONTINUE 

CONTINUE 

RETURN 

ENO 


SUBROUTINE  FCRITtSAL ON. H > WTH. AST<Ki N0PT1 .N0PT4, IPR, NAVD, IL 1 


FAILURE  LOAD  CALCULATION 
IMPLICIT  REAlt*8(A-H.O-Z> 

DIMENSION  A5I01<400) ,  A5IG2<400>,  ASI06  (  400  )  .  A5X0R(  400  ) 
DIMENSION  UR( 400 ) >  FSMR<  400 )>ATGTAA<400)«ASIORT(400)i NUMPIY(Z) 
DIMENSION  ANO(5i2)>IPLYdOO(2)»  HFMCI  5>  2 )  >  PLXPTI  100)»NPLY(2) 
DIMENSION  PNS(5i2)»PBRt3*2 ) » P30<  3. 2) » PALT( 3 « 2 3 


Q001496Q 
00014970 
00014980 
00014990 
00015000 
00015010 
00015020 
OUOISOIO 
00011040 
0001 5050 
00013060 
00013070 
00011080 
00015090 
00015100 
0001 5110 
00011120 
00015130 
00015140 
00015150 
0  00 1 S 16  0 
0001 5170 
00015180 
00013190 
00015200 
00015210 
00015220 
00013210 
00013240 
00013230 
00015260 
00015270 
00013280 
0001329U 
00013300 
00013310 
00C13320 
00013330 
00013340 
0001S3S0 
00013360 
00013370 
00015180 
00013190 
00013400 
00013410 
00013420 
00013410 
00013440 
00013450 
00013460 
00013470 
00013480 
00013490 
00013300 
00013510 
00013320 
00015510 
00013540 
00013550 
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DIMENSION  rt(2>.5AlOH!<’),SX(400)>5XY(400),  RCA!  2 ) , RCB! 2 ) ,  NRC(  '£.  t 
DIMENSION  AEP31  (400  ) ,  PFI.  (  3,2),PSTC(3,3,2) 

DIMENSION  5PST$<2, 10,2,3) 

COMMON/ BP l / BPSTS 
COMMOII/RC/RCA ,  RCB ,  (IRC 
COMMON/ F81/B5TR ,  X5TR 

COMMON/ ST RSS2/AEP31  . . 

C0MM0N/FB2/UR, ATETAA, F5MR 
COMMON/ FCT/riXPT 
COMMON/ El P' AX , BX, NQUf 

COMMON/HFF/HFMC  .  .. 

COMMON/LYP/NPl Y , HUMP l Y, ANG, I  PLY 
COMMON/ FAl I/PM5 , PBR i PSO, PAIT 
COMMON/ FAl 5/ PFl 

COMMON/ STRESS/ AS I OR . A5IORT, ASIOl , ASIG2 , AS  106  .  . 

COMMON/ PSC2/PSTC 
COMMON/ P3C3/5X, 5XY 
RA0»DARC03(-0. 1D1 1/1A0. 

2  F( 1 1 . EQ . 1 . AND . ( OPR . E4 . 0 . 0, OR . BPR . EQ . 1 . 3) )  WRITE!6,i9>  K 
59  FORMAT!//.'  ANALYSIS  OF  PLATE  NO',  IS,'  i\//> 

I  F( NUPT4 . E9 . 2  )  GO  TO  20 
I  F ( IIOPTA  .  El)  >  3  )  00  TO  00 
IFdlOPTA.EO.A)  OO  TO  AO 


HOFFMAN/TSAI-HILL  CRITERIA 


WRITE! & , 1 0 ) 

10  FORMATS/,'  HOFFMAN/TSAI-HILL  CRITERION' ,//> 
m«Noum 
LI2«I.I1+NRC(K) 

NCAS«2 

NM»NUMPLY(K) 

DO  A 02  1*1, HN 
THETA • ANO! I , K ) XRAO 

CALL  QMATX ( K, l II , L 12 • NCA3, N0PT1 , RAD, THETA) 
PFAILM  .0010 
N 1  *  NRC <  K  ) 

IF!BPR.EO.O.O)  DSB*DABS!PLXPT!D) 
IFfBPR.EO.l.O)  OSB* DABS! XSTR ) 

DO  404  JM  ,N1 

31 s ASI 01 <  J )/ DSB 

S2«A5IO2!J)/0SB 

56 1 AS  1 06 ! J  )/ D5B 

CALL  HOFF (SI, 32, 36, A, B,K) 

NNN'NQUT+J 


FOR  EACH  PLY  TYPE  F1NU  THE  LOCATION  AND  MAONITUOE 
OF  THE  HI0HE3T  HOFFMAN/TSAI-HILL  FAILURE  INDEX  VALUE 


P1“!-B  +  D50RT<BKX2+A«A) )/( 2 . **A ) 

P2»(-B-DS0RT(||itt<2+A«A)  )/(2.«A) 

IF(Pl.LT.O.OO)  PF»P2 

IF(P2 . LT , 0 . DO )  PF*P 1 

IF (PI .LT.P2.AND.P1 .OT.O.DO)  PF«P1 

IF(P2. LT.Pl. AND, P2.0T. 0.00)  PF*P2 

IF(DABS(PF).OT.PFAII  )  GO  TO  ABO 


00013360 
00015570 
OOOISSBO 
00013590 
00013600 
00015610 
00013620 
00013630 
00013640 
00013630 
00015660 
00013670 
000)3680 
Q0ul3690 
00013700 
00013710 
00013720 
C0013/30 
010137A0 
00013750 
00013760 
00015770 
00 01 3/ SO 
00013790 
00013800 
00015810 
00013B20 
00013B30 
300138AO 
00015830 
00013860 
00013870 
00013880 
00013890 
00013900 
00013910 
00015920 
00015930 
00013940 
00013950 
00013960 
00013970 
00015980 
00015990 
00016000 
00016010 
00016020 
00016030 
000160A0 
00016030 
00016060 
00016070 
00016080 
00016090 
OOOUIOO 
00016110 
00016120 
90016130 
00016  1  AO 
00016150 
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PFAIL*9ABii<*F) 

AMAX= A 

BMAX«B  „  .. 

L0C«J 

480  CONTINUE 
404  CONTINUE 
A«AMAX 
D'BMAX 

THTA«ATETAA(  NOUTUOC) 


THE  CORRESPONDING  FAILURE  LOAD  IS  OBTAINED  FROM  THE  iRBESTWLUE 

XULT«HFMC(l,IC)  .  . . . 

IF(  ASIOK  IOC) .  LT  .  0  . )  XUt  T*-HFIICC2,  K) 

YUl T*HFMC( 3 , K ) 

IF(ASIC2(L0C> .LT.O, )  YULT«-HFMC<4,K> 

SUL  T*HF,(C(  3 ,  X )  _  _ 

!  F( AS106 ( LQC ) .  IT  .  5,  )  $ULT*-HFMC<S,K) 

SR1«AS101<LOC)/XUT 
SR2*ASI02(L0C)/N  ULT 

SR6*AS106(LOC)/SULT  ,  ,,  .  .  . 

IF(BPR.EQ.O.O)  NPITE(6,4Q3>  I ,  ANO( t ,  K) ,  THTA.PFAlL . SRI , 5R2.SR4 
405  FORMAT  ( / ,  1  TOR  PLY  TYPE  NO  M3.'  <  ',09.3,'  DEGREES 

X*  THE  HIGHEST  FAILURE  INDEX  NAS  FOUND  AT  *,09. 3.*  DEOREE3'./, 

x*  THE  CORRESPONDING  FAILURE  LOAD  »',D9.3,'  LIS',*,  . . 

X •  THE  STRESS  RATIOS  AT  THIS  LOCATION  ARE)',/, 

X*  SIOl/XUlT  »  ',09.3./, 

X'  3IQ2/YUIT  •  ',09.3./, 

X'  !  106/SULT  *  ',09.3,// .  .  _  _ _ 

PFL ( I ,  K ) "PFAI L 
402  CONTINUE 

IF(BPR.EQ.O.O)  00  TO  BO 

SFAIL  *1  •  0D10  .  . . . . . 

DO  110  I-I.NN 

I  F(  SFAIL  .  OT.PFL(IfX))  NPY»I 
110  IFCSFAIl iGT.PFL(I.K))  SFAIL »PFL ( I , K) 

PIFL«5FAILXWTHXH(X)XNPLY(K) 

WRI TEC 6 . 77 1 )  PLFL 

771  FORMAT! // , '  FOR  THE  OPEN  HOLE  LAMINATE,  FAILURE*. 7, 
x'  IS  PREDICTED  AT  A  JOINT  LOAD  OF  ',09.3,'  LBS*.//) 

00  TO  BO 
20  CONTINUE 


POINT  STRESS  CRITERION 


IFCIL . E9 . 1 . AND . t BPR .E9.0.0.0R.BPR.EQ.1.0))  WRITE(6,3Q> 
30  FORMAT i  // .  *  POINT  STRESS  CRITERION  *,//) 

MN*NUMPLY( X) 

NCAS*  2 
L  1 1«N0UT  +  1 

L 12*1 1 1  +  2  _ 

I F ( BPR .  EQ .  1 .  0 .  AND, N0PT1 . EQ. 2)  NN*1'  - 

DO  100  I *1 , NN 
THFTA*ANO< I .K)HRAD 

CALL  OMATXC K . LI 1 , 1 12, NCAS. N0PT1 , RAD, 1 HETA) 

I F( BPR , EO . 0 . 0 . OR . BPR . EO . 1 . 0 )  00  TO  703  - 


00016160 
00016170 
...  00016180 
00016190 
00016200 
00016210 
.  00016220  . 
00016230 
00016240 
00016230 
.  0001(260 
0001(270 
0001(280 
00016290 
_  00016300 
0001631 0 
00016320 
00016330 
„  00016340 
00016330 
00016360 
00016370 
00016380 
00016390 
00016400 
00016410 
_  00016420 
0001(430 
0001(440 
0001(430 
0001(460 
00016470 
00016480 
00016490 
00016300 
0001(310 
0001(320 
0U016330 
0001(340 
0001(330 
000163(0 
U0016570 
00016380 
"  00016590 

00016600 
00016610 
00016620 
00016630 
00016640 
00016630 
00016660 
C0016670 
00016680 
00016690 
00016700 
00016710 
00016720 
30016730 
0C016740 
~  00016730 
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705 


70 


XF( XL . EQ . . J  FAC»BPR 
XFCIL.EQ.2)  FAC*<  1 .  -BPR)/PLXPT(I) 

BPS  T  S  C  K » l, IL* l) *3X( 1 )MFAC/< ASTXHTHXN(K) *NPIYCK) ) 
BPSTSC  K,  l ,  XL, 2 ) *SX(  2  >NFAC/<  ASTXHTHXH(ONNPLYllC) ) 
BPSTS(K.ML>3)-SXY(5)NFAC/(A5TMHTHMH(K)MNPir(K>) 
00  TO  100 

CONTINUE  _ _  _  ... 

IFCBPR. EQ.O.O)  DSN*  DABSCPLXPTC I j ) 

IFCBPR. EQ. 1.0)  DSN'XSTR 

PNT*  DSNXPSTCC l , I , K )/DABS( SX( 1 ) ) 

IFCSXC1) .LT.O. )  PNT *D3N*P3TC(2, I, K)/DAIS(3X(1 )  1 
P BN* DSNXPSTCC  3,I,K>/DABS(SX(2)) 

PSH*  DSNXPSTCC 4 , 1 , K l/DABSC  SXYC  5 ) ) 

IFCBPR. EQ. 0.0)  HRl TEC6 , 70 )  I , ANOC I , K ) , PNT , PBM, PSH 
FORMATC/,  •  FOR  PLY  TYPE  NUMBER  MS,'  WITH  *.*. 

*•  A  PLY  ORIENTATION  OF  ',D9.J,'  3E0RIES 


x«  NET  SECTION  FAILURE  LOAD 
X 1  BEARINO  FAILURE  LOAD 
X*  SHEAROIIT  FAILURE  LUAD 
PNS(I,X)«PNT 
PBR(  I  ,K ) «PBN 
PSOCMO'PSH 
100  CONTINUE 

IFCBPR. EQ. 0.0)  OC  TO  BO 
N»NUMPL Y( K ) 

IFCBPR. EQ. 1.0, AND. NOP Tl.EQ. 2)  N«1 
PPAIL1«1 .0010 
PFAIL2>1.0010 
PFAILJtl.OOlO 
DO  781  I *1 , N 
IFCPFAILl.OT. PNSC I • K ) ) 
IFCPFAILl.OT. PNSCI,K)> 
IF(PFAIL2.0T.PBRTI,K)) 
XF(PFAIL2.0T.PBR(I,K)) 
IFCPFAILl.OT. PSOCI.K)) 

781  IFCPFAILl.OT. PSOCI.K)) 


1)9.1, ' 
•  ,09.1, ' 
'  ,09.1,  *. 


LBS 

LBS 

LBS 


',/, 

'./, 

',/> 


NPY1-X 

PFAIL 1 *PNS( I , K) 
NPY2»I 

PFAIL2«P3R(I,K> 

NPY3«I 

PPAIL3*P30Cl,X) 


IFCPFAIL1.0E.PF/. ILF. OR. PFAILi.OE. PFAIL3)  00  TO  113 
PFAILI'PFAHIXWTHXHCXJKNPLYCX) 

MR  I  TEC  6, 982)  PFAIL1  _  .... 

WRITEC6.814) 

00  TO  811 

311  IFCPFA'LZ.OE.PFAILl.OR.  PFAU2.0E.  PFAIL3)  GO  TO  812 
PF.UL2«PFAIL2<WTMXH(K>XNPLY(K> 

WRITEC6.982)  PFAIL 2 
MRITEC6.813) 

00  TO  811 

812  IFCPFAIL1.0E.PFA1L1  .  OR  .  PFAIL3  ,  OE.  PFAU2)  00  TO  811 
PFAIL1«PFAIL3XWTHXH(K)XNPLY(K) 

HRl TEC  6  »  982 )  PFA1I.1 
HRl TEC  A , 816  ) 

811  CONTINUE 

982  FORMAT ( // . '  FOR  THE  LAMINATE  WITH  AN  OPEN  HOLE.  FAHURE  Mi 
x*  IS  PREDICTED  AT  A  JOINT  LOAD  OF  -  - 

819  FORMATC '  PREDICTED  FAILURE  MODE  IS 

815  FORMATC  *  PREDICTED  FAILURE  MODE  IS 

816  FORMATC'  PREDICTED  FAILURE  MOOE  IS 
OO  TO  80 

AVERAGE  STRESS  CRITERION 


',09.3, »  IBS  ',/) 

NET  SECTION',//') 
BEARINO  FAILURE’,//) 
SHEAR-OUT  FAILURE',/,') 


00016760 

00016770 

_ 00016710 

00016790 
00016800 
00016810 
._  00016120  . 
00016130 
00016140 
00016830 
00016860 
0001687  0 
00016880 
00016B90 
...  00016900 
00016910 
00016920 
00016930 
00016940 
00016950 
00016960 
00016970 
000169BO 
00016990 
00017000 
00017010 
00017020 
00017Q30 
00017040 
00017050 
_  00017060 
00017070 
00017080 
00017090 
00017100 

- 00017110 

00017120 
00017130 
00017140 
00017130 
00017160 
000171)0 
00017180 
*'"•  00017190 
00017200 
000,7110 
00017220 
00017230 
00017240 
00017230 
00017260 
00017270 
00017280 
00017290 
00017500 
00017310 
00017320 
00017330 
00017340 
00017350 
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or# 


40 

C 

C 

CONTINUE 

00017340 

00017370 

00017380 

mil  .  EQ .  1  .  AND.  t  RPR .  CO  . 0 .  0 , OR . BPR , EQ . 1 .  0 > >  WRITE! 6, 33) 

00017390 

S3 

FORMAT!//.  '  AVERAGE  STRESS  CRITERION  ',//> 

00017400 

LIi»MOUT+l 

00017410 

NN*NUMPLY! K ) 

NC.U«2 

00017420 

00017430 

IFvBPK.EQ.l .0.AND.N0PT1.EQ.2)  NN*1 

00017440 

DO  105  Ial *NN 

00017430 

tI2*N0UT*3*NAV0  ..... 

00017460 

THETA«ANO! I .K)»RAD 

00017470 

CALL  QMATX!K,  (.11  •  LI2.NCAS.  NCPT1 1 RAD. THETA) 

000174*0 

C 

00017490 

* 

CALCULATE  AVERAOE  STRESS 

00017300 

v 

00017310 

3UM»0. 

00017320 

Ml  *  1 

0001 7  5 JO 

N2*NAVD 

00017340 

DO  200  ! J * N 1 > N 2 

00017350 

200 

SIJM»5UM*SX(  IJ) 

00017340 

A 31  *  SUM/ FL  OAT! MAVD ) 

00017370 

Nl«NAVO+l 

00017  SAO 

N2«2*NAVD 

00017390 

SUM*0 , 

00017600 

DO  215  IJ»N1,N2 

00017610 

213 

5UM*SUM+’SXYC  I J ) 

00017620 

A52* 3UM/ FLOAT ( NAVD) 

00017630 

SUM«0. 

00017640 

N1»2»NAVD*1 

00017630 

N2»S<UAVD 

00017660 

DO  220  IJ«Nl .  N2 

00017670 

220 

SUM»SUMTSX(IJ) 

00017680 

AS3»SUM/F10AT! NAVD) 

00017690 

I  P(  BPR . EQ . 0 . 0 . OR  , BPR . EO .1.03  OO  TO  720 

CJ0177Q0 

IF(IL.EQ.l)  FAC«BPR 

*  00017710 

IF!  tl  .EQ.2)  FAC'd ,  -BPR )/PtXPT! X ) 

BPSYSOCi  X  i  IL#.\  J«ASixFAC/’<  A‘lTNHTHRH<K)RNPLY(IO) 

00017720 

00017730 

DP5T5(K.I,IL.2)  *ASJKFAC>'<  AST  *WTHAH! KJ XNPL Y( K ) ) 

00017740 

BP5TS<K( ! j IL#3)*AS2XFAC/< ASTPMTHXH<IO*NPLY(K) > 

00017750 

00  TO  103 

00017760 

720 

CONTINUE 

00017770 

I FC  DPR . EQ . 0 . 0 )  DSN "DABS! PLXPT( 1 1 ) 

00017780 

1 R  Bi’R  .  EQ  .  1  .  0  >  DSIhXSTR 

00017790 

PUT  «DSMNPSTC(  1,1,0/ DABS!  A51) 

00017800 

I F( AS1 ,LT.O.)  PNT*D5MXPSTCI2 . I .KJ/OABS! A51 ) 

00017810 

PBH«DSNPPSTC(3,I,K)/DAB5(A53) 

00017820 

PSH«DSHNPSTC(4> I.K)/DABS(AS2) 

00017830 

IFfBPR.EQ.O.O)  WRIT  Et  6 . 7  3  >  I , ANQ< 1 , K > , FNT , PBN, PSM 

FORMAT!/.'  FOR  Pl.Y  TYPE  NUMBER  SIS.'  WITH  ',/, 

00017840 

73 

00017830 

A*  A  PLY  ORIENTATION  OF  M>,.3,»  DEOREES  ',/, 

00017860 

»•  NET  SECTION  FAILURE  LOAD  «  '.D9.3.'  LBS  ',/. 

00017870 

*•  BEARINO  FAILURE  LOAD  •  SD9.3.'  LBS 

00017880 

*•  SHEAROUT  FAILURE  LOAD  ■  ',09.3,'  LBS  './) 

00017890 

PNS(  l.K)«PNT 

00017900 

PBR( I i K ) *PBN 

00017910 

PS Of  I , K ) 'PSN 

00017920 

103 

CONTINUE 

00017930 

IRBPH.EQ  0.0)  00  TO  80 

00017940 

NMWMPLYCK) 

00017930 
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Xt 


ooo 


1 r < BPR , EV . I  0 .  AND.H0PT1 , EQ ,2)  N  =  1 
ft-  A 1 L 1  =*  1  .0010 
PFAIL2  =  1  .  0 0 1  <*, 

PFA1L5=1 .0010 
DO  718  1  =  i  ,  N 

I F( HFA 1 1 1 ,  OT  . PN5! 1,10)  NPY1*I 
I F( PFAI L 1 . OT , PNS( I ,  K ) )  PFAIL1 -PNSCI ,K) 

IF(PFAI12.GT, PBRC 1,10)  NPY2»I 
IF(PrAIL2.GT.PBR<  1,0  >  PFAIL2  '>PBR(  I  »K) 

IF!PFAU3.0T.PS0<I,K)>  NPY3«t 
718  IF!PFAll3.0T.P5tKt.K)>  PFAU3«PS0<  I ,  K) 

IF(PFAIL1  .GE.PFAIL2.0R.PFAU1.0E.PFAU3)  00  TO  883 
PFAIHsPFAtLl*t:THi»H(R)«KPLY(IC) 

URI  TEC  6  .  <.73  )  PFAU1 

WRITE!  6, 65''*)  . .  . 

00  TO  881 

833  IFCPFAU2.0E.PFAIH  ,  OR .  PFAU2  .  OE.  PFAU3 )  00  TO  882 
PFA  jLCsPFAll2*WTH»H<K)ttHPlY(K) 

WR  ITS!  A, 473)  PFAU2 
HR  I T  E( 6 i 835 ) 

GO  TO  381 

082  lrCPFAILi.GE.PFAIll  OR . PFAIL 3 , OE. PFAIL2)  00  TO  881 
?FAIL3«,’>FAIL3MWTHMH<K)*NPLY!K; 

WRITE!*, *7i)  PFAIL1 
WRITE!*. 886) 

881  CCII T I  HUE 

478  FORMAT!//,'  FOR  THE  LAMINATE  WITH  THE  OPEN  HOLE,  FAILURE',/', 
*'  15  PREDICTED  AT  A  JOINT  LOAD  OF  ' , M  ,  J  ,  '  LBS',/) 

88 A  FORMAT!'  PREDICTED  FAILURE  MODE  IS  NET  SECTION',//) 

883  FORMAT ! '  PREDICTED  FAILURE  MODE  IS  BEARING  FAILURE',//) 

836  FORMAT!'  PREDICTED  FAILURE  MODE  IS  SHCAH-OUT  FAILURE',//) 

GO  TO  80 

MAXIMUM  STRAIN  CRITERION 
90  CONTINUE 

FAPP=X3TRMHCK)MNPLY!K)MWTH 
WRI TE! 6 . 7  72 ) 

772  FORMAT!//, •  MAXIMUM  STRAIN  CRITERION  ',//) 

L  1 1  5 IIOUT ♦  1 
L  I  2  =  1 1 1 ♦  NRC!  t. ) 

II  CAS  *2 

MU’  H1  IMPLY  f  X  ) 

00  210  1=1, NN 
TMETA«AHG<  I.IOxRAO 

CALL  GMATXlK, LIl.l 1 2 , NCA3 , N0PT1 , RAD, THETA, 

$TMAX= - 1 , 0  01 0 

III  *NRC(  K ) 

DO  511)  2  =  1, Ml 

IT!  STMAX.LT.  DABS!  AEPSKJ)))  LOC«J 
510  IF15TMAX.LT. DABS! AtPSl! J  )  > )  STMAX*DA8S! AEPSl! J  )  > 

THTA  =  ATETAA!NOUTHOC> 

IF! BPR. ED. 1 .0)  00  TO  511 

PFL ( I . K)=DABS(PLXPT! I ) MjALOW! X J/STMAX) 

HR  II E( 6 , 7  7 A )  I.ANO! I . K) . THTA.PFL ( I . K) 

77m  FORMAT!'  FOR  PLY  TYPE  NUMBER  MS,'  WITH  ',/, 

»'  A  PLY  ORIENTATION  OF  ',D9.3,'  DECREES  ',/, 

•"  FAILURE  15  PREDICTED  AT  ' , D9  3,'  DEQREES  ',/, 

*>'  AT  A  PLY  LOAD  OF  '.D9.3,'  LBS',//) 

CO  TO  210 


00017960 
000179/0 
00017980 
0001 7  99  Q 
00018000 
00018010 
00018020 
00018030 
00018340 
00018050 
00018060 
00018070 
00018000 
00013090 
00018100 
300181111 

oooi a isc 

00018130 

00015140 

00018150 

00013160 

00018170 

00013180 

00018190 

00018200 

00018210 

00018220 

00018230 

00018240 

00018250 

00018260 

00018270 

00018280 

00018290 

00018300 

00018310 

00018320 

00018330 

00018340 

00018350 

00018360 

00018370 

00018380 

00013390 

00018400 

00018410 

00018420 

00018430 

00018440 

00018450 

00018460 

00018470 

00018480 

00018490 

00018500 

oooiasio 

00018520 

00018530 

00018540 

0001S55C 


y 

r 

K 

'(  ' 


k* 

r." 

“  I . 


f 

4  > • 
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c 

c 

c 

c 

c 

c 

c 


511  PFL! I .  K)  -  Li A BS(  PAP P<<SALOH<IO /5TMAX) 

210  CONTINUE 

IFC8PR.EQ.0.0)  GO  TO  80 

A:1 .  01)10 

NN=NUMPLY!K) 

DO  514  1=1, NN 
I F<  A . GT , PFL ! I , K ) )  NPY«I 
514  IFU.GT.PFUI.K))  A=PFLCI.K) 

WRITE! 6,778)  A 

778  FORMAT!//, '  FOR  THE  OPEN  HOLE  LAMINATE, 
X'  PREDICTED  AT  A  JOINT  LOAD  OF  ',D9.3,' 
80  RETURN 
END 


FAILURE  IS',/, 
LBS',//) 


SUBROUTINE  QMATX! X, LIl , LI2, NCAS.N0PT1 , RAD, THETA) 


QMATX  PERFORMS  SASIC 
TRANSFORMATIONS 


STRESS  AND  STRAIN 


IMPLICIT  REAL *8 1 A-H . 0-2 ) 

DIMENSION  ASIGRI400 ), A3IGRT<400), ASIG1I400), ASI02 ! 400 > , ASIG6 ! 400 ) 

DIMENSION  ATETAAL400  ), AEPSXI400) .AEPSYL400) , AEPSXYI400) 

DTMENSION  E11(2),E22(2),ESS12), PMU12! 2 ) , PMU21 ! 2 ) , SXC400 ) , SXY! 400 ) 

DIMENSION  AEPS1 ! 400 ) 

DIMENSION  ASX!400),ASXY(400) 

COMMON/ XXY1/ ASX, A SXY 
C0MM0N/M0D/E1 1 , E22, ESS ■ PMU12 , PMU21 
C0MM0N/STRSS2/AEPS1 

COMMON/STRESS/ AS I GR, AS I GRT , ASIG1 , ASIQ2,ASIG6 
COMMON/QMT/ATETAA, AEPSX, AEPSY, AEPSXY  -  - 

C0MM0N/PSC3/SX, SXY 
J  =  0 

Q11*E11(K)/(1. 0-PMU12(K)XPMU21 !K) ) 

Q12*(PMU21!K)XE11!K))/!1 . 0-PMU12!  IOXPMU21<K> ) 
Q22SE22!K)/I1.0-PMU12CK)XPMU21(K)) 

Q66»ESS!K) 

C=DCOS(THETA) 

S=DSIN!THETA) 

3Q1L-LQ11X(CXK4))M2.X(Q12+!2.XQ66))X(CXK2)X(SXK2))+!Q22X!SMK4)) 

B012-!  !QH  +  Q22-!4.xQ66  ) ) xc Sx X2 ) x! CXX2 ) )  +  ( Q’2x<  SXX4  +  CXX4 ) ) 
B0163!IQH-Q12-(2.xQ66))X(SXCCXX5)))  +  <(Q12-g22+(2  XQ66 ) >X! I 5MX3)XC00018930 
X))  00018990 

SQ22MQ1 1X!SXX4  > )+!2. XI012M2. XQ66))X!5XX2)X(CXX2) )+!022X!CX*4 ) )  00019000 

S)26=! C Jil-912-!2,xQ6&))xCX<SXXj))«<CQ12-Q2Ztt2.xQ66)>XSX(CXX3>>  00019010 

BQ66  =  !  I  <31 1+022-12.  xIQl 2+468  ) ) )  xl  Sxxz  JX!CXX2  ) )  +  ( Q66*( !  C*x<:  )-K$NX4 )  00019020 

*))  00019030 

DO  40  Z-LIX.LX2  00019040 

J*J+1  00019C50 

IFINCAS.EO.i)  THEVA=ATETAA! I)XRAD  00019060 

Cs  UCOS! THETA )  00019070 

5*DSI N! 1 HETA )  00019080 

5IOXJBQUxAr.PSXm  +  8Q12xAEPSY!.v3  +  B016XAEPSXY!I)  0001 909U 

SIGY-BD12XAEPSX!  I  H-BQ22XAEPSY!  i '.♦B02uXAEPSXY!  I )  00019100 

SIOXY- BOlbXAEPiX! I )>BQ26  *AEPSY! 1 1+BC66XAEPSXYC I )  00019110 

SX! J 1 -SIGX  00019120 

SXYt  J ) - SIGXY  000191  30 

IF! NOPT l  E0.2)  SXIJJ-ASXII)  00019140 

1FIN0FT1 .E0.2)  SXY! J ) = ASXYC I )  00019150 


00018560 

00018570 

00018580 

00018590 

00018600 

00018610 

00018620 

00018630 

00018640 

00018650 

00018660 

00018670 

00018680 

0001*690 

00018700 

00018710 

00018720 

00018730 

00018740 

00018750 

00018760 

00018770 

00018780 

00018790 

00013800 

00013810 

00018820 

00018830 

00318840 

00018850 

00018860 

00018870 

00018880 

00018890 

00018900 

00013910 

00016920 

00U13930 

00013940 

00018950 

00018960 

00018970 
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AS  IOR  C  T)*jX0X»<C»*2+SI0Y*S**2*’2  .  XSIGXYXSXC 
AsiGRTm=-siGxxsxc+siGYNCxs+sioxYxccxi<2-sxx2> 
mSIGI (  J  J  »SlGX*CX*2+SIGY*5XX2+2 . XSXCXSIGXY  .  .. 

AS10ZU}*SXGXXSXN2+SIOYMCX»2>2.MSKCXSIGXY 
ASXG6 ( J)*-CXSXSIGX+SIGYXCXS+(CX*2-5XXZ)XSIGXY 
A€PS1( J ) *A£PSX( X ) XCXXZ+AEPaY( I) *SX*2+AEPSXY( I ) *S*C 

..  AO  CONTINUE  _ 

RETURN 

END 

C 

C  ....  _ _ 

C 

SUBROUTINE  HOFFI SI , S2, S6 , A, 3,10 
MPliCIT  REAL*8(A-H.0-Z) 

.  .  DIMENSION  HFMCC5.2)  . . . _ .  .. 

com;  iQN/hff/hfiX 
c 

C  COMPUTE  THE  HQFFMAN/7SA1-HI LL  FAILURE  INDEX 
C  ..  ...... 

Asfl.ODO 
B«0 ,0D0 
XCaHFMC(l»K) 

XT*HFMCC2,K)  ...  _  _ 

YC»HFMC£3.X) 

YT»HFMC(4, K> 

STC*HFMCC5,K) 

A»<SlXXZ-SlXSZ)/(XCXXT)+<S2XXZ)/(YCxrT)+(S6/STC)*»Z 
IF<XC. EQ.XT. AND.YC.EQ.YT)  GO  TO  10 
B*C (XC-XT )/( XCXXT ) )xSi+( <YC-YT)/(YCXYT) 1 XSZ 
00  TO  ZO 

10  CONTINUE  .  .  .  _.  _  _  . 

8*0 . ODO 
ZO  CONTINUE 
RETURN 

END  . . . . 

C 

C 

C 

C 

C  . 

r 

SUBROUTINE  CENTDt RF, H, FASSS , FASBS, P, CELP, ITT ) 

C 

C  ' — 

IMPLICIT  PEAL*8(A-H,0-Z) 

DIMENSION  PLYKI 1 00 ) ,  BARKC 100} t  BARUC 100 ) »  F( 100 ) 
DIMENSION  mZ).RF(Z) 

DIMENSION  AIK1U0. 100), A<2) , BC2> 

DIMENSION  NPLYIZ) 

COMMON/PBB/PL YX. BARK, BARU 
COMMON/’AFM/'AII.F 

COMMON/LYP/NPLY  . 

C 

C  SET  UP  THE  CENTRAL  DIFFERENCE  EQUATIONS 

C 

DO  3  1  =  1,100  . * 

DO  3  J=1.10Q 
3  AXKI,  J  )*0 . 

C 

C  NECESSARY  CONSTANTS  ARE  FORMED  -  • 


00019180 
00019170 
00019180 
00019190 
00CI9Z00 
00019210 
__  00019220 

00019230 
00019240 
00019Z30 
00019260 
00019270 
00019280 
00019290 
...  00019300 
00019310 
00019320 
0001*330 
00019340 
00019330 
00019360 
00019370 
..  00019380 

00019390 
00019900 
00019410 
.  _  00019420 
00019430 
00019440 
00019430 
__  00019460 
00019470 
00019480 
00019490 
00019500 
'  00019510 
00019520 
00019530 
00019540 
00019550 
00019560 
00019570 
00019580 
’ ~  00019590 
00019600 
00019610 
00019620 

.  00019630 

00019640 

00019650 

00019660 

00019670 

00019680 

00019690 

00019700 

00019710 

00019720 

OC019730 

00019740 

00019750 
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00  7  1*1*2 
A< Z ) *H( 1) KM2/F4SSS 
7  BtI)*HtI)xx4/FA5BS 
H12*Hf 1 )/H(2) 

Al*Ht 1 )**2/FASSS 

A21H(2)KN2/FASSS  ...  ... 

NP»NPLY<1)+NPLY12> 

C 

C 

C  SHEAR  AT  TOP  OF  JOINT  EQUALS  ZERO  . . 

C 

All ( 1 . 1  )*1 

AXI(l,2)i»-t2.*Al«iPLYiC(2>> 

AXXt Ii4)*2.+A1*PLYK(2)  ...  _  .  _ 

AXX<1,5)»-1. 

F  <  1 )  *  0 . 0 
C 

C  MOMENT  CONDITION  AT  TOP 
C 

IFtRFtlJ.GE. 1.D10)  GO  TO  SO 
2*1. 

R*RF<1)  . 

00  T D  f  n 
50  2*0. 

R*l. 

60  AI I ( 2 . 1 )  *R 

AIIC2,2)*<ZK2.KHU)*FASSS)4RM<-2.-Al*PlYltC2>+<HU»tM2 

»«FASSS)/FASBS) 

All ( 2>  3 )  **ZM(4 .  RHtl  )kFAS5S+(2hH(  1  )MM2MP‘.YK(  1  )*H(  1 ) )) 
AIIt2,4WX2.XHt.’ .'*FASSS+R*t2.+Al*PLYItt2>-tM(l)K*2  .. 
xxFASSSJ/FASBS) 

AII(2,5)*-R 

F(2)*2X2.KH(1 ) KM 3X6 ARK t 1 )XSARUt 1  > 

C  ... 

C  OOVtRNINO  EQUATIONS  FOR  THE  TOP  PLATE 
C 

N2*NPLYtl) 

DO  55  J=>1.N2 
I  *  J  +  2 

A 1 1  ( I ,  .1  > » 1  . 

IFU.EQ.l)  GO  TO  56 
AIItI,JM)*-4.-Atl>*PLYKtJ-l> 

GO  TO  57 

56  AII<I,J  +  l)*-4.-AU)xPLYKt2) 

5?  AIZ(X.Jt2)a6.+(Z.XA(l)+BU)>KPlYKCJ> 

IF(J.EQ.NZ)  GO  TO  61 

All  ( I » J  +  S )  *~4  .  -  A  1 1 )  XPLYKU+I ) 

GO  TO  62 

61  AIK  I » J*3)*-4. “Atl)xPLYRCNPLY(l)-l) 

62  AIKI.  J+4)*l  . 

IFU.EQ.l)  GO  TO  58 
IFtJ.EQ.N2)  GO  TO  63 

Ft  I ) *A( 1  )nBARK( J-l ) XBARUtJ-1 ) 

K-( 2 , xAt 1 )  +  B'.l) JXfARKt JJXBARUt J) 
x+Atl )XBARK(J+l)xBARU< J+l) 

GO  TO  59 

5*  Ft  I )  :2 .  MAt  l  )xBARKt  2 IMBARUt  2) 
x-t  2 . xAt  1 )  +  8 1 1 ) )  xBARKi 1 ) MBAfcUt 1 > 

GO  TO  59 


00019760 

00019770 

00019780 

00019790 

00019800 

00019810 

00019820 

00019830 

00019840 

00019850 

00019860 

000X9870 

00019880 

00019890 

00019900 

00019910 

00019920 

00019930 

00019940 

00019950 

00019960 

00019970 

00019980 

00019990 

00020000 

00020010 

00020020 

00020030 

00020040 

00020050 

00920060 

00020070 

00020080 

00020096 

00020100 

00020110 

00020120 

00020130 

00020140 

00020150 

00020160 

00020170 

00020180 

00020190 

00020200 

00020210 

00020220 

00020230 

00020240 

00020250 

00020260 

00020270 

00020280 

00020290 

00020300 

00020310 

00020320 

00020330 

00020340 

00020350 
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63  F< I )«2 . X„ . i)XBARK(HPlY( 1 > - 1 > X BARU CNPLYCl >  —  1  ) 
X-(2.XAU>  +  BQ))XBARK<J)KBARU<J) 

39  CONTINUE  ... 

53  CONTINUE 

INTERFACE  SHEAR  ON  TOP  PLATE  "  P+DELP 

I«NPLYU>+3 

J*NPLYC1) 

AIK  I ,  J ) *1 . 

AIICI,J+l)*-(2.+AlxPlYK<NPLY<l)-l>>  . . 

Aini,J*3)«2.+AlxPLYK<NPLY<l>-l) 

AX  I C  X ,  J+4 )  ■-!  . 

c/1. 1  )*( “2 .  XH(  1  )XX3x< P+OELP)  l/FASBS 
SLOPE  CONTINUITY 


I»NPLYtl)+4 

J*NPLY(  I )  .  .  .....  . . 

A I K  I ,  J )  *  1 . 

AII<I#J+l)»-<2. +A1MPI YK<  NPLY? 1)-1>“H(1 )XX2XFASSS/FASB5) 
AlKI,J*S>*2.+AlNPLYK<NPLYU)-n-HCl)*«*FASSS/FASBS 
AI K I >  J  +  4) ®-l . 

AIKl!j+6)«H12XX3xC2.*A2XPLYKtNPLY(l)+2>-H<2>*X2XFA$SS/FASBS> 
AIKI,J+8)»-H12XX3x(2 .♦A2XPIYK( NPLYC 1 )+2)-H(2>xx2xFA3SS/FASBS) 


AI I ( I ,  J  +  9 ) ■H12XX3 
F<  I ) 1 0 . 


MOMENT  CONTINUITY 

I«NPlYU)  +  5 
J«NPLY( 1  )  +  I 
AIKI,  J)«I . 

AI K I ,  J  +  l )  ■  -<  2.+AlxPLYK(Ni*LY<  1 ) )  >  _  .  _  . 

AIKI,J  +  2)*1. 

All  (I » J+5)®-H12XX2 

AI K I  *  J+6 ) *H12XX2»( 2 . +A2XPLYK( NPLYC 1  )  +  l ) ) 

AIKI,  J+7)«-H12XX2 

K (  I )  8 A l X (  BARKCNPIYC I )  )XBARU(NPLYCI))-BARK(NPLY(1H1>X 
XBARUINPLYC 1 )  +  l ) ) 

INTERFACE  SHEAR  ON  BOTTOM  PLATE  ...  .  . 

I “NPLYt 1  )+6 
J=NPL Y( 1  )  ♦ 5 
AI K I , J )  *~1 . 

AIKI,  JM  )=(2.+A2xpiYK(NPLYCl)t2)) 

AIKI,  J  +  3)»-<2.+A2xPLYKlNPLYU)+2>) 

AIKI,  J+4)«l. 

F( I)«2.XHI2)XX3X(P+DELP)/FA5B5 

GOVERNING  EQUATIONS  FOR  THE  BOTTOM  PLATE 

NI ®NPLYC 1 )+7 
N2«NPLY( 1  >*NPlY(2)+6 
DO  70  I=N1.N2 
J*  I  -2 

AIKI,J)*1. 

IF(I.EQ.Nl)  GO  TO  71 


00020360 
00020370 
00020380 
00020390 
00020400 
00020410 
00020420 
00020430 
00020440 
00020450 
00020460 
00020470 
00020480 
00020490 
..  „  00020300 
00020310 
00020320 
00020330 
...  00020540 
00020550 
00020560 
00020570 
00020300 
00020390 
00020600 
00020610 
.....  00020620 
00020630 
00020640 
00020650 
00020660 
’  00020670 

00020680 
00020690 
Q0l*',0700 
001)20710 
00020720 
00020730 
00020740 
00020750 
00020760 
00020770 
00020760 
"  00020790 
00020600 
00020810 
00020820 
00020830 
00020840 
00020850 
00020860 
00020870 
00020880 
00020890 
00020900 
00020910 
00020920 
00020930 
00020940 
00020950 
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a 

AIICI 

00  TO 

71  AIICI 

< 

72  AIICI 

Z> 

IFCI. 

>> 

AIICI 

00  TO 

73  AIICI 

76  AIICI 

IFCI. 

IFCI. 

£ 

F(  I ) * 

..1 

X-C2.X 

X+AC2) 

V, 

00  TO 

s' 


a; 


•/ 

i 

3 


•/, 

V. 

& 

>. 

IN 


'*S 

ft 

? 

v, 

V 

V 

V 


72 


76 


*ACZ)*PLYICCJ-5> 

-AC2)*PLYKCNPlY<m2> 


00  TO  75 
-4.-AC2)*PLYIC<J- 


3) 


■4.-AC2)»PlYIC<J-3) 


00 

00 


TC 

TO 


73 

77 


-4)XBARUCJ-4> 


74 


73  FCI>«2*AC2)*BARICCNPLYm*2>*BARU<NPlYCl)  +  2> 
*-C2.*A(2)+BC2) ) M  BARK ( J-41XBARUC J-4) 

GO  TO  74 

77  F(I)*2.xA(2)XBARK(J-5)«BARU<J-3)  . 

x-C2.*AC2>+D(2)>*BARKC J-4)*BARUCJ-4> 

74  CONTINUE 
70  CONTINUE 

SHEAR  ON  BOTTOM  PLATE  EQUALS  ZERO  . 

NP*NPLYC1)+NPLYC2) 

l*NP*7 

J*NP+4 

AIICI . J)”-l . 

AII(I,J+l)’(2>A2xPLYK<NP-m 
AIICI, J*3)«-<2.+A2xPLYK(NP-l)) 

AIICI, J*4)*l. 

FCI>»0. 

MOMENT  BOUNDARY  CONDITION  ON  BOTTOM  PLATE 
I*NP+8 

Z F : RFC  21 .OE. 1 .010)  GO  TO  85 
Z*1 . 

R»RFC2) 

00  TO  95 
Z  =  0. 

R*1 . 

AIICI. J)«-R 

A II C I » J+ 1 )*ZXC2 . *H( 2 )*FASSS)*RX<2. ♦A2XPLYKCNP-1 ) 
*-HC2)m<2*FA$SS/FA083> 

AIICI. J*2)*-Z*C4.*H( 21XFASSS+2 .XHC2)KK3*PLYIC(NP>) 
AIICI,J+3)*ZX2.XHC2>XFASS5+RX(*2. -A2XPLYICC NP-1 ) 
X+HC2)XX2XFASSS/FASBS) 

AIICI.  J+4MR 

F(  I ) »Z*( 2 .*HC 2) HX3*BARKCNP )*BARUCNP) ) 

RETURN 
END 


85 

95 


SUBROUTINE  SOLVECU.H.P, OELP.NSDLS, ITT) 


00020960 

00020970 

00020980 

00020990 

00021000 

00021010 

000.71020 

00021030 

00021040 

00021050 

00021060 

00021070 

00021080 

00021090 

00021100 

00021110 

00021120 

00021130 

00021140 

00021150 

00021160 

00021170 

00021180 

00021190 

00021200 

00021210 

00021220 

00021230 

00021240 

00021250 

00021260 

00021270 

00021280 

00021290 

00021300 

00021310 

00021320 

00021330 

00021340 

00021350 

00021360 

00021370 

00021380 

00021390 

00021400 

00021410 

00021420 

00021430 

00021440 

00021450 

00021460 

00021470 

00021400 

00021490 

00021500 

00021510 

00021520 

00021530 

00021540 

00021550 


I? 
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IMPLICIT  *t:AlM8(  A-H>0-2) 

DIMENSION  A<100,100>,B<100),NPLYC2),U<100>,FtlOO) 

.  DIMENSION  SX<100),PLYK(1Q0>,H(2>  _ 

DIMENSION  BARK ( 100 ) , BARUtlOQ ) 

COMMON/ l YP/NPLY 
COMMON/AFM/A.F 

C0MM0N/PBB/PIYK*  BARK*  BARU  .  . . 

SOLUTION  OF  THE  SYSTEM!  9AICU)*(B) 

NP»NPLY<l)4NPLY(2)+8  _ 

DO  AAA  1*1, NP 
AA4  B(I ) *F< I ) 


;oa: 


2112 

2011 


APPLYINO  OUASSIAN  ELIMINATION  TO  THE 
MATRIX  OF  COEFFICIENTS  .  .  _ 

DO  2001  1*1, NP 
IR*  I 

IF( A( IR, 1 ) , NE .  0  < )  00  TO  .2041  _ 

IR« IR+1 

I  Ft IR . OT . NP)  CO  TO  2001 
00  TO  20A2 

NN*T'!*1  ..  . 

CO  2002  L*NN,NP 

I  Ft  DABS (ACL ,I)).OT.1.D-SO)  00  TO  2009 
At  L , I ) *0 • 

OO  TO  2002  _  _ 

CF»-A( IR, I )/A<  L , I ) 

DO  2003  J*I , NP 
a(l,j)*a:l,j)*cf+A(IR,j) 

IFt  OABStAtL,  J  ) )  .  LT  ,  1 .0-30)  At  L ,  J  )*J) .  0...  . 

CONTINUE 

B ( L  )*BtL  )*CF*B(I) 

CONTINUE 

CONTINUE 

BACK  SUBSTITUTION 

DO  2011  1*1, NP 
LMlP+l-I 
SUM*0 . 

IFt At L , L  ) . EO. 0 . )  OO  TO  2112 
N«L  +  1 

IFt  N .OT . NP  )  00  TO  2013 

DO  2013  J*N, NP 

SUM* SUM* At  L , J ) MSXC  J ) 

CONTINUE 

SX(L)«tB(L)+SUM)/AU,L) 

00  TO  2011 

CONTINUE 

SXtU«0. 

CONTINUE  . 

EQUILIBRIUM  CHECK 

NPTS«NPLYtl)+NPLY(2)+B  - 


000213(0 
00021370 
00021380 
00021390 
00021600 
00021610 
00021620 
00021630 
000216AO 
00021630 
00021660 
00021670 
00021680 
00021690 
...  00021700 
00021710 
00021720 
00021730 
000217A0 
00021730 
00021*60 
00021770 
000217B0 
00021790 
00021800 
00021810 
00321820 
00021830 
000218A0 
00021830 
.  00021860 
00021870 
00021880 
00021890 
.  00021900 
00021910 
00021920 
00021930 
000219A0 
00021930 
00021 A&O 
00021970 
00021980 
00021990 
00022000 
00022010 
00022020 
00022030 
000220AO 
00022030 
00022060 
00022070 
00022080 
00022090 
00022100 
00022110 
00022120 
00022130 
000221  AO 
'  0 ''022150 
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1444 

1533 


810 


311 


PT«P+DELP 
Nl»NPLYCl>+2 
N2*NPLY(l)+7 
NN»NPLYCl)+NPLY(2>+6 
SUM4»0 . 

SUM3*0 . 

DO  1444  X*3,N1  . 

J*I-2 

UU)«5X<X> 

5UM4»SUM4+SX< 1 )HPLYX( J )MH( 1 ) 

CONTINUE 

DO  1333  X*N2,NN 

J*I-& 

U< J )-3X( X  > 

3UM3«SUM3+SX<I)*PIYK<J)*HC2>  . 
CONTINUE 

IF(NSDLS.EQ.l)  00  TO  810 
PT*PT*2, 

SUM4*SUM4*2. 

SUM5*SUMS»Z. 

CONTINUE 

NP*NPLYC1)+NPLY<2) 

N*NPLY(1)+NPLY<2) 

U<1 

00  311  1*1. N 
IF(I.OT.NPLYd))  11*2 
Pl«U(I)MPLYK(X)MH(II) 

IF( I . 1C. NPLY( 1 ) )  00  TO  311 

CONTINUE 

RETURN 

END 


SUBROUTINE  FAIL<OAMDL , U, H, P. DEEP, BPR, AST, HTM, PFAXl.ANQLE, NODE, 
XXR0UT.N0PT4.NULTF.JNT, ITT, NTFl)  .  __ .  . 


IMPLICIT  REALMtA-H.O-Z) 

DIMENSION  NPLY<  2 ) . MDAMP( 100), H(2), PLYK( 190 ), U( 100 ) 
DIMENSION  BARK( 1 00 ) , BARU( 100) 

DIMENSION  PNt 1 00 > ,MDAMX ( 100 ) .OAMDL < 2> . 0AMN( 100 > 
DIMENSION  DELNSI 5,2) , DELBR(3,2) .DEL 30 (5, 2) 
DIMENSION  UN(100),PFL(3i2),P3TC(3>3>2) 

DIMENSION  IPLY (100.2), ANO(3>2)>  NUMPLYI 2) 

DIMENSION  PNS( 3, 2 ) , PBR( 3, 2) , PS0<  3. 2) ,PALT( 3, 2 ) 
DIMENSION  BPSTS( 2, 1 0,2,3) 

DIMENSION  NPNM( 100,2) 

COMMON/ COUNT/ NPNM 
C0MM0N/BPI/BPST5 
COMMON/PSC2/PSTC 
COMMON/FAH/PNS.PBR.PSO.PALT 
C0MM0N/FAL3/DELNS, DELBR, DELSO 
COMMON/ PAL 4/UN, OAMN, MDAMP, MDAMI , PM 
COMMON/ FAL  S/PFL 
COMMON/P  BB/PLYX , BARK , BARU 

COMMON/PRT/NDAM.INPLY.XTYP  "" 

COMMON/l YP/NPLY , HUMPLY, ANO, IPLY 
NP*NPLY(1>+NPLY<2) 


00022140 
00022170 
00022180 
000221 VO 
00022200 
00022210 
00022220 
00022230 
00022240 
00022230 
00022240 
00022270 
0002228U 
00027290 
00022300 
00022310 
00022320 
00022330 
00022340 
00022330 
00022340 
00022370 
00022380 
00022390 
00022400 
00022410 
00022420 
00022430 
00022440 
C0022430 
00022440 
00022470 
00022480 
00022490 
00022300 
00022310 
00022320 
QQ022330 
00022340 
00022550 
00022340 
' 00022370 
00022580 
00022590 
00022400 
00022410 
00022420 
00022430 
00022640 
00022630 
00022660 
00022670 
00022680 
00022690 
00022700 
00022710 
00022720 
00022730 
00022740 
00022730 
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FAIL  INCIDENTS  THE  POINT  LOAD  TO  EACH  SUCCESSIVE 
PLY  AND  INTERFACE  FAILURE  UNTIL  FINAL  JOINT  FAILURE 
TARES  PLACE  .  .  _  _ 

FULL  BEARING  FAILURE  ANALYSIS 

IF(BPR.NE.O.O)  00  TO  <00 
IR0UT*l 

LOOP  OVER  ALL  PLIES  TO  FIND  LOAD.  LOCATION*  AND  MODE  OF 
NEXT  PLY  FAILURE  .....  _ _ _ _ 

100  IF(DELP.EQ.O.)  00  TO  10 
PFP'1.0010 

00  TO  13  .  .  „  _  „  _ 

10  PFP«1000. 

13  MODEF'O 
DELPF'O . DO 

NN*NPLY(  1  )*NPLY(2)  ....  ........ 

00  20  1*1, NN 

IF  PLY  HAS  ALREADY  LOST  STIFFNESS,  00 

ON  TO  THE  NEXT  PLY  .  ._  .  _ _  ...  _ 

IF(MDAMP( I ) . EQ . 10 )  00  TO  20 

DETERMINE  HHICH  PLATE  THIS  PLY  IN  IN  . ..  _ 

K*1 

IFCI.QT.NPLYIl))  R«2 

CALCULATE  THE  LOAD  ON  PLY  FUR  CURRENT 'JOINT  LOAD  . . 

PL*-H(K)H( PLYKt I )MU( I )+BARK( X )MIARU( 13) 

ASSUME  FAILURE  OCCURS  ONLY  ON  BEARXNO  SIDE 


IF( PI . LT . 0 , . AND. K . E9 . 1 >  00  TO  20 
IF(PL , OT , 0 . .AND.K.EQ.2)  00  TO  20 

DETERMINE  PLY  LOAD  NECESSARY  TO  CAUSE  NEXT 
FAILURE  AND  ITS  MODE 

IFCN0PT4.NE.1 . AND.N0PT4.NE.3)  00  TO  200 
MODE'S 

IN*I-(R-1)WNPLY<1) 

NPY»IPLYtIN.K) 

PF*PFL(NPY,K) 


IF  PL >PF  AT  CURRENT  JOINT  LOAD 
PREDICT  FAILURE 

NCC*0 

IF( DEIP . NE . 0 , )  00  TO  210 
IF(DABS(PL).LT.DABS(PF))  00  TO  210 
PFP»0 . 

IMPLY* I 


00022740 

00022770 

00022760 

00022790 

00022800 

00022810 

00022820 

00022830 

00022840 

00022830 

00022860 

00022870 

00022880 

00022890 

00022900 

00022910 

00022920 

Q0022930 

00022940 

00022930 

00022760 

00022970 

00022980 

00022990 

00023000 

00023010 

00023020 

00023030 

00023040 

00023030 

00023060 

00023070 

00023080 

00023090 

00023100 

00023110 

00023120 

00023130 

00023140 

00023130 

00023160 

00023170 

00023180 

00023190 

Q0023200 

00023210 

00023220 

00023230 

00023240 

00023230 

00023260 

00023270 

00023280 

00023290 

00023300 

00023310 

00023320 

00023330 

00023340 

00023350 


149 


o  n  on  norm  noon  noon 


M0DEF«M0l„. 

NCC*  1 
00  TO  140 
200  NMN«I 

IFC I , OT . NPLYC 1 ) )  NMN'I-NPLYU) 

NX»IPLY< NHN  K) 

IF(PBR(NX,K),LT . PSQ(NX,K) . 0R.PN3(NX,lt) .  LT .P30CNX, K) )  00  TO  ?00 
MODE * 1 

PP"P30CNX,K) 

IPCMDAMPC I ) . EQ . 1 )  MODE'S 

IFCMDAMPC I ) .EQ. 1 )  PF*PALT(1»IC)*PP  _ 

00  TO  25 

700  IFCPNSCNX.K) .LT.PBR(NX.K))  00  TO  710 
HOOE*2 

PP»PBR(NX,K)  .  .  . 

IFCMDAMPC I ) . EQ . 2)  MODE'S 
IFCMDAMPC I ) . £0.2)  PF«PAL  TC2.  IC>  *PF 
00  TO  25 
710  M0DE"3 

PF»PN5CMX.K) 

I F(MDAMP( I ) , EQ . 3)  M0DE«7 
XF(MDAMP( I ) . EQ . 3)  PF"PALT<3,K)*PF 
25  CONTINUE 
NCC  *  0 

IF< DELP , NE . 0 . )  00  TO  210 

IFC  DABSCPL ) . LT . DABSCPF) )  00  TO  210 

PFP'O.  .  . 

IMPLY"! 

-  OEF'MODE 
NCC*1 

00  TO  1212 
210  CONTINUE 

DETERMINE  INCREMENTAL  JOINT  LOAD  TO  CAUSE 

PLY  FAILURE  ..  . . .  .. 

X PC  ITT . IE. 1 )  00  TO  21 

IF(DABS(DAB3(U(I)/UN(I))-1.).LT.1.0D-10)  00  TO  20 
21  CONTINUE 

DEL PF" CPF* DA BSC  PNC I ) ) ) N 1 000 , 2 ( DABSCPL ) -DAIS ( PNC  I > ) ) 

A  NEOATIVE  VALUE  OF  DELPF  INDICATES  UNLOADINO 
IM  A  PIT,  THIS  NODE  IS  THEN  SKIPPED 

IFIDELPF.LT. 0. )  00  TO  20 

RECORD  LOWEST  JOINT  FAILURE  LOAD  INCREMENT. 

PLY  IN  WHICH  II  OCCURS,  AND  MODE 

PFP2«PFP 

IFCDELP.EQ.O)  PFP2»1 . 

IFCDELPF.0T.PFP2)  00  TO  20 

PFP»DELPF 

IMPLY"! 

MOOEF*MODE 
20  CONTINUE 

LOOP  OVER  ALL  INTERFACES  TO  FIND  LOAD 
AND  LOCATION  OF  NEXT  DELAMINATION 


00023360 
00023370 
00023360 
00023300 
00023400 
00023410 
00023420 
00023430 
00023440 
00023450 
00023460 
00023470 
00023490 
00023490 
00023300 
00023310 
00023520 
00023330 
00023540 
00023350 
00023360 
00023570 
00023580 
00023390 
00023600 
00023610 
00023620 
00023630 
00023640 
00023630 
00023660 
00023670 
00023660 
000236 VO 
00023700 
00023710 
00023720 
00023730 
00023740 
00023730 
00023760 
0002377  0 
Q0023780 
00023790 
00023800 
00023610 
00023820 
00023830 
00023840 
00023850 
00023860 
00023870 
00023860 
00023890 
00023900 
00023910 
00023920 
00023930 
00023940 
00023950 


ISO 


nnn  oori  o  o  o  r>  o  nnooo  oooo  oooo  ooo  non 


NN»NPl.Y(i.  fNPLY(2)-2 
DO  50  JM.HN 


IF  INTERFACE  HAS  ALREADY  FAILED.  00  TO  NEXT 
IF(HDAHKJ)  .EQ.l)  00  TO  SO 
DETERMINE  HHICH"fL'ATE  IHTERFAc8”mS 
KM 


_ IF( J.OE.NPLY(l))  K«Z  ... 


CALCULATE  INTERFACE  SH3AR  STRAIN  FOR  CURRENT 
JOINT  LOAD 

0AMJMU(JtK-V>-U<J*K>)/RcK7 

DETERMINE  INCREMENTAL  JOINT  LOAD  TO  CAUSE 
INTERFACE  ..FAILURE _ _ 


IF(ITT.EO.l)  00  TO  47 

IF( DABS( DADSC  QAMJ/QAMN( J) )-!.). LT.l.OS'XO)  00  TO  SO 

AT  CONTINUE  ,  .  .  , . . _.  .  .  .  _ _ 

DELPF* (OAMDLC  K>-DABS(OAMN( J ) ) )/( DAIS (OAHJ )- DABS c5AMN(J ) )  ImIQQQ . 
IFCDELPF.LT .0. )  00  TO  SO 


RECORD  LPUEST  JOINT  FAlLitfE  LOAD  IRcIIHENT . 
PLY  OF  INTERFACE  IN  MHICH  IT  OCCURS.  AND  MODE 


..  ._  PFP2»PFP  .  .  .  _ 

IF(DELP.EO.O)  PFP2* I . 

IF< DELPF.OT .PFP2)  00  TO  30 
PFP«DELPF 

INPLY«J  _  _ 

M0DEF«9 
SO  CONTINUE 

DETERMINE  VALUES  AT  END. OF. INCREMENT _  . 

JOINT  LOAD  AT  FAILURE 

IFtMODEF.EQ.O)  00  TO  323  _ 

P*P+PFPK DELPHI  000, 

323  CONTINUE 

NODAL  DISPLACEMENTS  AND  PLY  LOADS _ 

NN«NPLY(1HNPLY(2> 

DO  55  I»1 iNN 

UNtDaUNin+tUCn-UNIDluPFP/lOOO^.  _ 

UPDATE  UN 

IFCNCC.EO.l)  UN( I ) *U( I ) 

KM 

IFC I ,0T , NPL Y( 1 ) )  K«2 

PNC  I ) »-H( K)K(PL YK( I )«UN( I )+BARK(I)NDARU( I) ) 
55  CONTINUE 


00023960 
00023970 
.00023980  . 
00023990 

OOU240QO 

00024010 
_00024020_ 
00024030 
00024040 
00024030 
..00024060. 
00024070 
00024060 
00024090 
.00024100  . 
00024110 
00024120 
00024130 
.00024140 
00024130 
00024160 
00024170 
.  00024160. 
00024190 
00024200 
00024210 
_00024220 
00024230 
00024240 
000242SO 
.00024260 
00024270 
00024280 
00024290 
_00024300 
00024310 
00024370 
00024330 
_00(/24540 
0O  024350 
00024360 
0002't37P 
00J2CTB0 
“00U243V0 
00024400 
00024410 
000244 2T 
"00024450 
00024440 
00024450 
00024460 
00024470 
00024480 
00024490 
00024500 
00024510 
00024520 
00024530 
00024540 
00024550 
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UO  OOO'J 


INTERFACE  SHEAR  STRAINS 

.  NM«NPLYd)*NPLY<2)-2  _ _  _  _ 

DO  60  J«1,NN 
K"l 

IFO.GE. NPLYd))  K*2 

0AMN<  J)»(UN(J*R"1)”UN(  _ . _ 

60  CONTINUE 
1212  CONTINUE 

PLY  STIFFNESSES,  DAMAGE  STATES,  AND  NEXT. LOAD  _ 

INCREMENT 

K«1 

IFdNPLY.OT. NPLYd))  X«2  _ _  .  _ _ 

NMN«INPLY 

IF(  IMPLY .  OT  .NPLYd ) )  NMN»INPLY-NPLYC  1 ) 

NX«IPIY{NMN.K> 

IF(MODEF.NE.O)  00  TO  70  .  _ _ _  _ 

DELP* 1000. 

H  DAM “  1 
00  TO  69 

70  IF(MOUEF.NE.l)  00  TO  80 

IFdNPLY.EQ.l .  AND. MDAMIC IMPLY) .  EQ . 1 )  GO  TO  7S 
IFdHPLY.EO.  NPLYd).  AND.  MDAMIdNPLY-1)  .EQ.  1 )  00  TO  75 
IF(INPLY,E0.CNPIYC1)*1>, AND .MOAN I  ( INPL Y-l ) , CO . 1 )  GO  TO  73 
IF<  INPLY. EO. < NPLYd )+NPLY<2 )).  AND. MDAMlINPLYd >*NPLYC2) 

1-2) .EQ. 1)  00  TO  73 
KK»0 

IFdNPLY.OT. NPLYd))  KK«1 

IFCMDAMI ( INPLY-KK-l / . EQ . 1 . AND. MDAM! dNPLY-KK) . EO . 1 >  GO  TO  73 

MOAMPdNPLY)»l 

TEMPK»PLYK( INPLY) 

PLYKdNPLY)*DELSOOIX,K)MPLYXdNPLY) 

8ARK( INPLY)»< 1 ,-DELSO(NX»K))NTEMPK.  .  . . 

BARU(INPLY)«UN( INPLY) 

DELP*0. 

N0AM«2 
00  TO  69 

73  PLYKdNPU )«0.0 
BARKdNPLY)»0 . 

BARU(INPLY)*UN(INPLY) 

MOAMP(INPLY)»10 

DEIP«0. 

NDAM*2 
00  TO  63 

80  IF(M0DEF.NE.2)  00  TO  83 
TEIiPK*PLYK(  IMPLY) 

PLYKdNPLY)*DELNS(NX.K)»TEMPK 
BARK ( IMPl  Y ) »(  1 . 'DELNStNXi K) )MTEMPK 
BA RU< INPLY) *UN< INPLY) 

MDAMP(INPLY)»2 
DEL  P*0 . 

NDAM»4 
UO  TO  63 

83  IF( MODEF . NE . 3 )  GO  TO  90 
TEMPK«PLYK( INPLY ) 

PLYK(  INPLY)  ■DELBRCNX,K))iTEMPK 
BARKdNPLY)  ■(  1  ,-DEU)R(NX,K)>KTEMPK 
BARU( IMPLY ) «UN( INPLY  > 


00024360 
00024570 

_ 00024580 

00024390 

00024600 

0002A61Q 

_  00024620  . 

Ot  >24630 
00024640 
00024630 
...  <*0024640 
00024670 
00024680 
00024690 

_  00024700 

00024710 
00024720 
00024730 
00024740 
00024730 
00024760 
00024770 
00024780 
00024790 
00024800 
00024810 
00024820 
0002)830 
00024840 
00024830 
_  *0024860 

00024870 
00024880 
00024890 
00024900 
00024910 
00024920 
00024930 
00024940 
00024990 
00024960 
00024970 
00024980 
00024990 
00023000 
00023010 
00023020 
00023030 
00023040 
00029030 
00023060 
00023070 
00023080 
00025090 
00025100 
00025110 
00023120 
00025130 
00023140 
00025130 
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non 


MDAMP(INKf)«3 

DELP'O. 

. NOAM" 3  _ _ 

00  TO  6S 

90  IF(M0DEF.NE.4)  00  TO  140 
PLYK<1NPLY)«0.0 

BARK(XNPLY)"0 .  ... _ _ 

BARU( IMPLY )«UN< IMPLY) 

MOAMPC I  HP  L Y >  B 1 0 
DELP*0 . 

NDAH*6  . . . 

00  TO  45 

140  IP(MODEF.NE.S)  00  TO  110 
PLYK<INPlY)«0. 

_  BARK(IMPLY)«0,  _ 

BARLK  IMPLY )»UN( IMPLY) 
MDAMP(INPLY)«10 
"ELP*0 . 

.  .  MDAM*4  . . . 

00  TO  6S 

110  IF(M0DEr.NE.6)  00  TO  113 
PL YK( INPIY)»0 . 0 

.  BARK(INPIY)«0.0  , _ 

BARU(INPLY)«UN(IMPlY) 

MDAMPt INPLY)a10 
NDAM*7 

......  DEIP-O,  . . . 

00  TO  43 

113  IF(M0DEF.NE.7 )  00  TO  120 
PLYK(INPLY)»0, 

BARK<IMPLY)bO,  _ 

BAKU(INPLY)«UM(INPLY) 
MDAMP(INPLY)«10 
D2LP*0 , 

NDAM«8  _ _ _ 

00  TO  43 

120  IFTM0DEF.NE.8)  00  TO  123 
PlYK(INPLY)»0. 

BARKUHPLY)«0.  _  .  _ 

DARUCIMPLY)«UN<INPLY> 

HDAMPf I NPLY) 1 1 0 
NDAM*9 

DELP*0 .  _  _ 

00  TO  65 

123  IF(M0DEF.NE.9)  00  TO  63 
DELP “ l 000  . 

MDAMK  INPLY)«1  _ 

NOAM* 10 
CO  TO  65 
600  CONTIMUE 

PARTIAL  BEARINO  FAILURE  ANALYSIS 
IROUT  3 2 

NPl«NPLYCmNPLY<2) 

AJFLN3M  .0010  '  . 

AJFLBRM  .0010 
AJFL30»1 .0010 

DO  550  1*1  * NPL  _ 

K*1  ' 


00023160 
00023170 
.00025180  . 
00025190 
00023200 
00023210 
.00023220.. 
00023230 
00023240 
00023730 
.00023260 
00023270 
00023280 
00023290 
.00023500 
00023310 
00023320 
00023330 
.0002)340 
00023330 
00023360 
00023370 
.00025380.. 
00023390 
00023400 
00023410 
.00023420  . 
00023430 
00025440 
00023430 
.00025460 
00023470 
00023480 
00023490 
.00023300 
00029510 
00025320 
00023330 
..00023340 
00023330 
00023560 
00025370 
00023380 
00023390 
00023600 
00023610 
00023620 
00023630 
00023640 
00023630 
00023660 
00023670 
00025680 
00023690 
00023700 
00025710 
00023720 
00023730 
00023740 
00025750 


.C. 


\ 

[ 

l 
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•/ 


i 


IFtl.GT.h,  cYt  1 )  )  K»2 

PL'~H(ION(PLYK(I)XU( I )+BARKt I )  MBARUt I ) ) 

. .  IFCPl.lT.O.O.AND.K.EQ.l)  00  TO  9S0 _ _ 

IFCPL.GT.O.U.AND.K.Efl.2)  00  TO  SSO 
Pl«DABS(PUMASTMHTHMH(<)MNPLY(K)/1000. 

IJ*I 

IFCI.OT. NPLYtl))  .XJ*IJ-NPLYC1>. _ _ 

IPMPIYCIJ.K) 

NT*1 

IFt  BPSTSt K. IP >2.1). LT. 0.0)  NT«2 
...  F1"DA8S(P3TC(NT»XP<  K)S(  BPSTSt K>  IP. 1 . 1 )+PL*BP3T3t K. !P<  2< 1)) ) 
P2*DABSlP5TCt3,XP,K)/tBPSTStlt,IP,l,2)+PL>tBPST5Cll,XP.i!»2>>) 
F3*0ABS<PSTCt4,XP.K)/tBP3ntlt,IP,l,3>*PL><BH5TSCIC,IP.2.3))> 
IFtMDAMPt  I ) .  EQ  .  9 )  FI  «PAl  Tt  3,  K)  MF1 

. .  IFtMDAMPtI).E9.4>  FZ*PALTt2jK)*F2 _ _ _ 

IPtMDAMPtI>.EQ.2)  F3»PALTtl,K)*F3 
IFtAJFLNS.OT.Fl)  NF1 ■ I 
IFt  AJFLNS . OT . FI J  AJ7LNS«F1 

IFC  AJFLBR  . OT .  F2 )  NF2*I  ._  _ _  _ _ _ 

IFUJFIBR.0T.F2)  AJFIBR«F2 
IFt  A JFLSO  .GT . F3  )  NF1*I 
IFUJFL50.0T.F3)  AJFL50*F3 

390  CONTINUE  . . 

IFC AJFLNS .OT. AJFLBR, OR. AJFLNS. OT.AJfISO)  00  TO  *80 
INPIY*NF1 
991  NOAH*! 

I  Ft  MO  AMP  { INPLY)  . E9.2)  00  TO  971 _ _ 

IFtMDAMPt IMPLY) ,E0.4)  00  TO  361 
IFtMDAMFt IMPLY) .  EQ.3)  NOAM"! 

MDAMPt INPIY )*NDAM 

PPAIl»AJFLN3  .  .  _  .  _ 

00  TO  64 

360  IFtAJFLBR. OT. AJFLNS. OR. AJFLBR. OT. AJFL30)  00  TO  37J 
INPLY’NF2 

961  NOAM*  A  _ _ ...  _  . 

I  Ft  MDAMPt INPIY ) , EO . 3 )  00  TO  931 
IFt MOAMPt INPIY ) . EQ . 2 )  00  TO  371 
IFtMDAMPt  IMPLY)  ,  EQ  .  4)  NDAM*  7 
MDAMPt IMPLY )*NDAM 
PFAII,  •  AJFLBR 
00  TO  64 

370  IFtAJFLSO.OT, AJFLNS. OR. AJFLSO.OT. AJFLBR)  00  TO  66 
IMPLY’ NFS 
571  N0AM»2 

IFtMDAMPt IMPLY) ,EQ.S>  00  TO  591 
IFtMDAMPt IMPLY) ,E0. A)  00  TO  961 
IFtMDAMPt IMPLY) .EQ.2)  NDAM«6 
MDAMPt 1NPLY)»N0AM 
PFAIL ’AJFLSO 
64  CONTINUE 
K  *  1 

1  Ft  IMPLY . OT .NPLYtl ) >  K«2 
IPL’INPLY 

IFt I P L .or. NPLYtl) >  X PL ■ IPL -NPLYtl) 

I PLP* IPLYt IPL i K  ) 

ANOLE«ANO(  IPLP.lt)  — 

HODE’HPNMf  IPL.lt) 

IFtMDAMPt IMPLY) ,0E. 6)  00  TO  107 
IFtMDAMPt  IMPLY )  ,  EQ.3)  AR*  DCLNSt  IPLP.lt) 

IFtMDAMPt IMPLY) . EO . 4 )  AR’DELBRt IPLP. <) 


00029760 

00023770 

_ 00023780 

00025790 

00025800 

00023810 

_  00029820 _ 

00023830 

00023840 

00023890 

_  09025860 

00023870 

00023880 

00023890 

..  _ 00023900 

00023910 
00023920 
00023930 
_  00025940 
00023990 
00023960 
00023970 

_  00023980  . 

00023990 

00026000 

00026010 

_  00026020 

00026030 

00026040 

00026030 

_  00026060 

00026070 
00026080 
00026090 
00026100 
“00026110 
00026120 
00026130 
00026140 
~  '  00026130 

00026160 
00026170 
00026180 
“  00026  1  •JO 

00026200 
00026210 
00026220 
00026230 
00026240 
00026230 
00026260 
00026270 
00026280 
00026290 
00026 100 
00026110 
00026120 
00026130 
00026140 
00026130 


m 

1 

f 

l 


9 

I 


A 


l 


I 


i  it • 


t 


i 


s 

is 


s 

si 

a 

,N 


I, 

f, 
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nan  ooo 


IFCMDAMPv.,<PLY).EQ.2)  AR*DEL50(  IPLP.K) 
TEMPK  =  PLYK< INPLY) 

PLYKCINPLY)  *ARRTEMPK  . . 

uARKC IMPLY) *C 1 . -AR  )*TEMPK 
BARU( INPLY )*U< IMPLY) 

ITYP»IPIY( IPL»K) 

NTFL  »0 


00  TO  103 
107  CONTINUE 

IF(K.EQ.I)  NPLY< 1 )«NPLY{1 >■ 


IP(K. EQ .2)  NPIYC2)*NPLY(2)t1 
NP-INPLY 

IFOC.EO.2)  NP*INPLY*NPLY( 1 ) 
N«NPLYOO-NP*2 

IfVP»IPiYCNP,K)  .  . 

DO  101  l«l,N 

IPLY<NP*I-1,K)«IPLYCNP+T,K) 
NPNMl NP+I-l i K)*NPNM(NP+I . X) 

101  CONTINUE  _  ..  . 

N > HP L- IMPLY 

DO  102  1*1. N 

MDAMPf 1 UP  L  Y ♦ I  —  1 > *MDAMP( INPLY+I ) 
PLYK(INPLY+I-1)»PLY.UINPLY+I> 
BARK ( INPLY+I-l )»*ARK( 1NPLY+1 ) 

102  BARUC INPLY+I-l)  ' ARUC INPLY+I > 
NTFL  *1 

NULTF*NULTF-1 
IF(NULTF.EO.O)  JNT*0 


I  Ft NPL Y( 1 ) , EQ . 2 . OR . NPLYC2) . EQ. 2)  JNT*0 
103  CONTINUE 

RETURN  ....  _ _  _ 

63  CONTINUE 


INCREMENT  LOAD  IT  JOINT  HAS  NOT  FAILED 


T1  *0 . 

T2«0. 

N1 *NPL Y( 1 ) 
M2*MPL Y(  2 ) 

DO  115  1*1 iNl 
135  T1=T1+PIYK(I) 
DO  126  1*1. N2 
N  3  *  N  P  I.  Y  <  1  )  +  I 
126  T2*r2+PLYK(N3) 


IF(U ,EQ.O.O.OR,T2.EQ.O.O)  00  TO  150 
RETURN 
130  JNT“0 
RETURN 
END 


SUBROUTINE  PRINT(U. P. DELP. PFAI l *  ANGLE » APR > NODE. IROUT, JNT , 
RNP.NSDLS. ITT) 


IMPLICIT  REALdB(A-H.O-Z) 

DIMENSION  U( 1 00 ) . PL YK ( 100 ) 

DIMENSION  NPL Y( 2  )  *  NUMPL YC  2 ) , ANO( 5. 2) » IPLY( 100*2) 
DIMENSION  BARK(IOO). BARUC 100 ) 


00026360 
00026370 
..  00026380 
00026390 
00026  ADO 
00026410 

_  00026A20. 

00026430 

00026440 

00026450 

_ 00026460 

00026470 
00026480 
00026490 
......  00026500 

00026510 
00026320 
00026530 
...00024  340 
00026550 
00026360 
00026370 

_  00026380 

00026390 

00026600 

00026610 

_ 00026620 

00026630 

00026640 

00026650 

_ 00026460 

00026670 
00026680 
00026690 
00026700 
00026710 
00026720 
00026730 
00026740 
' 00026750 
00026760 
00026770 
00026780 
00026700 
00026800 
00026810 
00026820 
00026830 
000268*0 
00026850 
00026860 
00026870 
00026880 
00026890 
00P26900 
00026910 
00026920 
00026930 
00026940 
00026950 
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nno 


i 

\ 


DIMENSION  NPNMC100.2) 

COMMON/ COUNT/ NPNM 

.  COMMUN/LYP/NPLY,NUMPLY,ANO,IPLY  .  .  _ 
COMMON/PBB/PLYK, DARK, BARU 
COMMON/PRT/NDAM, INPLY, ITYP 

.  PRINT  VALUES  AT  END  OF  INCREMENT _ 

IF(ITT.EQ.I)  WRITEU.IO) 


00026960 
00026970 
00026980 
00026990 
02J27000 
* J027010 
00027020 
00027030 
00027090 
00027050 


KIOX.'ND  » 

NO  ADDITIONAL  DAMACE  AT 

CURRENT  JOINT 

LOAD*,/,  . 

00027060 

XlOX.'DL  » 

DEIAMINATION 

00027070 

X1CX, 

•so  *> 

SHEAR-OUT 

00027080 

xlOX, 

'BR  « 

BEARING 

00027090 

xlOX. 

•NS  « 

NET  SECTION 

00027100 

XlOX, 

•suo* 

ULTIMATE  FAILURE  AFTER 

SO  AND  DL 

00027 110 

XIOX.'SU  « 

ULTIMATE  FAILURE  IN  SO 

',/, 

00027120 

xlOX. 

'  3U  « 

ULTIMATE  FAILURE  IN  BR 

00027130 

xlOX, 

•nsu= 

ULTIMATE  FAILURE  IN  NS 

00027190 

XlOX, 

•ULT* 

ULTIMATE  FAILURE 

//,/. 

0QQ2715Q 

*9X,  'INCREMENT  110 3X JOINT  LOAD' ,  5X, '  NODE1 ,8X ,  *PLY  TYP1I',  00027160 

x8X, 'MODE' ./ )  00027170 

PlsP  00027180 

lFdROUT.  EQ.2)  Pl=PFAIL  ""  00027190 

IF! NSDIS . EQ . 2 )  PL=2,xPL  00027200 

!F< ITT . EO . 1 )  PFAILP’O.ODO  00027210 

IF(PFAILP.LT.PL)  PFAILP*PL  .  .00027220 

IFIJNT.EQ.O.AND.PFAILP.EQ.O.ODO)  PFAUP*PL  00027230 

K«1  00027290 

IFdNPLY . CT .NPLYC 1 ) 1  K*2  00027250 

N»IPLY! INPLY, K )  „  00027260 

IF! K , EO . 2)  N»IPLY< ( ItlPLY-NPLYd ) ) ,  K)  00027270 

IFdROUT,  CO.  ?.)  N*ITYP  00027280 

IF'BPR.EQ.O.O.OR.BPR.EO.l.O)  ANQLE«ANf»< N, Id  00027290 

IF(BPR.EQ.O.O.OR.BPR.EO.l.O)  NODEdNPLY  00027300 

IF(NDAM.EO.l)  WRITE! 6 • 20 )  ITT, PL  00027310 

IFtNDAM. E0.2J  WRITE(6.30)  ITT , PL . NODE. ANGLE  00027320 

IF! NOAM . EQ .  3 )  WRITE<6,40)  ITT , PL , NODE. ANGLE  00027330 

IF!NDAM.EQ.4)  WRITE(6,50)  ITT , PL , NODE, ANGLE  00027390 

IF! NDAM . EO . 5 )  WRITE(6,60>  ITT . PL , NODE. ANGLE  00027350 

IF! NOAM . EQ . 6  )  HRtTE<6,70)  ITT , PL , NODE. ANGLE  00027360 

I F ( NDAM . EO . 7 )  WR.dEI6.80)  I TT , PL , NODE. ANOLE  00027370 

I F ( NDAM . EQ . 8  )  URITE! 6 , 90  J  I TT , PL , NODE. ANOL E  00027380 

IFtNDAM. EO. 9)  WRITEI6.100)  ITT , PL , NODE. ANCLE  00027390 

IFtNDAM. EO. 10)  WRITE(6. 110)  I TT , PL , NODE. ANGLE  00027900 

20  F0RMAT(5X,I5.10X,D9.3.34X.'ND')  00027910 


30 

FORMAT !5X,I5,10X,D9.3,3X,I5,5X,F7.3, ' 

DEGREE 

' , 5X» ' 

SO') 

00027920 

90 

FORMAT (5X,I5,1QX,D9.3,3X,I5,5X,F7.3> ' 

DEGREE 

' ,5X, ' 

SUD'  7 

00027930 

50 

FORMAT !5X.I5,10X,D9.3,3X,I5,5X,F7.3,' 

DEGREE 

• ,5X, ' 

BR') 

00027990 

60 

FORMAT !5X. 15. 1QX, D9 . 3 , 3X . I 5 , 5X , F7 . 3 , ' 

DEGREE 

' , 5X, * 

NS'  ) 

00027950 

70 

FORMAT  C5X,I5,10X,D9.J,3X,I5,5X,F7.3.' 

DEGREE 

' . 5X , ' 

SU') 

00027960 

80 

F0RM9Tt5X.I5,iaX.D9.3.3X,IS,5X,F7.3,' 

DEGREE 

1 , 5X,  ' 

BU' ) 

00027970 

90 

FORMAT! 5X,I5,10X,D9.3,3X,I5,5X,F7.3, ' 

DEGREE 

' . 5X,  ' 

N5U '  ) 

00027980 

100 

FORMAT !  5X , 1 5, 10X, 09 . 3 . JX , 15. 5X, F7 . 3, • 

DEGREE 

‘,5X.  • 

UlT ’ ) 

00027990 

no 

FORMAT (5X,15,10X,D9.3,3X,I5,5X,F7.3, ' 

DEGREE 

' , 5X,  • 

DL') 

00027500 

IFIJNT.EQ.O)  GO  TO  220 

00027510 

GO  TO  250 

00027520 

220 

CONTINUE 

00027530 

WRITE! 6 ,290 )  HFAILP 

00027590 

290 

FORMAT!//,*  THE  PREDICTED  JOINT  FAILURE  •,/, 

'  00027550 

■  V*  Mt 


*.*  • 


no  n  nn  o  on  n  no  no  o  non 


*’  LOAD  lb  ',014.7,'  LBS',//) 

250  CONTINUE 
RETURN 
END 


SUBROUTINE  LINV2F  f A, N, IA.AIMV, IDGT, WKAREA, IER) 

DOUBLE  PRECISION  A<  IA,  N) ,  AINVtIA, N ),  WKAREAC  1 ) .ZERO, ONE 
DATA  ONC/l.ODO/, ZERO/O. 000/ 

FIRST  EXECUTABLE  STATEMENT 
INITIALIZE  IER 

IER»0 

. .  SET  AINV  TO  THE  N  X  N  _  . 

IDENTITY  MATRIX 

DO  10  I  =  1,N 
DO  5  J  *  1 ,  N 

AlNVtl.J)  "  ZERO  ...  _  ..  _ 

5  CONTINUE 

AINV(I.I)  a  ONE 
10  CONTINUE 

COMPUTE  THE  INVERSE  OF  A 
CALL  LEQT2F  ( A,N, N, 1A.A1NV. IDGT .WKAREA, IER) 

IF  (IER.EQ.0)  OO  TQ  9003 
7000  CONTINUE 

CALL  UERTST  C IER, 6HLINV2F)  . .  . 

7005  RETURN 
END 


C 


SUBROUTINE  LEQTZF  t A, M,N, I A, 8, 1  DOT, WKAREA, IER) 

DIMENSION  A(IA.1),B(IA,) ) .WKAREA ( 1 ) 

DOUBLE  PRECISION  A, B, WKAREA, D1 , D2.WA 


lERaO 
JERaO 
J  *  NXN+1 
K  a  J  +  N 
MM  *  K+N 
KK  «  0 
MM1  «  MM- I 
JJ*1 

DO  5  L  J1  >  N 
DO  5  I  -  1 ,  N 

WKAREAt JJ)aA(I.L) 
JJaJJ+1 
5  CONTINUE 


FIRST  EXECUTABLE  STATEMENT 
INITIALIZE  IER 


DECOMPOSE  A 

CALL  LUDATN  t WKAREA . N,N, A, IA, I  DOT, DI , D2, WKAREAt J ) .WKAREA(K) , 
x  WA.IER) 

IF  t IER .OT . 12B  )  03  TO  25 

IF  t IDGT  . EQ.  0  .OR.  IER  .NE.  0)  KK  »  l 

DO  15  I  *  l.M 

PERFORMS  THE  ELIMINATION  PART  OF 
AX  ■  B 

CALL  LUELMN  t  A,  IA , N,  Bt  I ,  I ) , WKAREA  t ) , WKAREA(MM) ) 

REFINEMENT  OF  SOLUTION  TO  AX  »  B 


00027540 
00027570 
00027580 
00027590 
00027600 
00027610 
00027620 
00027650 
00027640 
00027650 
00027660 
00027670 
00027680 
00027690 
00027700 
00027710 
00027720 
00027730 
00027740 
00027750 
00027760 
00027770 
00027780 
00027790 
00027800 
00027810 
00027820 
00U2783Q 
00027840 
00027850 
00027860 
00027870 
(,0027880 
00027890 
00127900 
00027910 
00027920 
000279  JO 
00027940 
00027950 
00027960 
00027970 
00027980 
00027990 
00028000 
00028010 
00028020 
00028050 
00028040 
00028050 
00028060 
00023070 
00028080 
00028090 
00028100 
00028110 
00028120 
00028130 
00028140 
00028150 
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IF  UR  .ME.  0) 

*  CALL  LUREFN  CWKAREA, N,N. A. IA. B(l , I ) , IDQT.HKAREAt J ) .HKAREA(MM) , 
«  HKAREAC  K ) , HKAREAC  K) , J  ER) . 

DO  10  11*1 <N 

BUI, I)  *  WKAREACMMl-UI) 

10  CONTINUE 

IF  CJER.NE.O)  00  TO  20  . . _.  ..... 

13  CONTINUE 
GO  TO  ZS 
20  IER  >  131 

25. J J*1  _ 

DO  30  J  »  I'M 
DO  30  I  «  l,  N 

AU ,  J  )  ■WKAREAC  J  J  > 

JJ«JJ+1  ...  „ 

39  CONTINUE 

IF  (IcR  . KQ .  0)  GO  TO  9005 
9000  CONTINUE 

CALI  UERT3T  ( IER# 6HL EQT2F)  .  .  _ .  ..... 

9005  RETURN 
END 


SUBROUTINE  LUDATF  < A, IU, N, IA, IDQT, Dl , D2. IPVT, EQUIL ,HA, IER) 


DIMENSION  A{IA,1),LU(IA,1), I  PVT ( 1 ) , EQUIL ( 1 1 

DOUBLE  PRECISION  A , LU , 01 , 02. EQUIL. MA, ZERO, ONE. FOUR. SIXTH, SIXTH, 

«  RN, WREL, BIOA, BIG. P, SUM, AI.WI.T, TEST, Q 

DATA  ZERO. ONE, FOUR. SIXTH, SIXTM/0. 00,1. DO. A. DO, 

x  li. 00, .062300/ 

FIRST  EXECUTABLE  STATEMENT 
INITIALIZATION 

IER  «  0 
RN  ■  N 
WREL  *  ZERO 
D1  *  ONE 
D2  «  ZERO 
BIOA  *  ZERO 
DO  10  1*1, M 
BIO  «  ZERO 
DO  3  J* 1 ,  N 
P  *  A<I,J) 

LUCI.J)  «  P 
P  »  DABSCP) 

IF  IP  ,QT .  BIG J  BIO  •  P 
5  CONTINUE 

IF  (BIG  , OT .  BIOA)  BIGA  *  BIO  * 

IF  (BIG  . EQ .  ZERO)  GO  TO  110 
EQUIL ( I )  «  ONE/BIO 
10  CONTINUE 
DO  105  J*1 , N 
JM1  *  J-l 

IF  ( JM1  .IT.  1)  GO  TO  AO 

COMPUTE  U(I,J),  1*1, . . . ,J-l 

DO  35  1*1, JM1 
SUM  «  LUCI.J) 

IM1  *  1-1 

IF  ( I  DOT  .EQ.  0)  00  TO  25 

WITH  ACCURACY  TEST 


00028160 

00028170 

00028180 

00028190 

00028200 

00028210 

00028220 

00028230 

000282A0 

00028250 

00028260 

00028270 

00028280 

00028290 

00028300 

00028310 

00028320 

00028330 

00028360 

00028350 

00028360 

00028370 

00028380 

00028390 

00028600 

00028610 

0Q028A20 

00028630 

00028660 

00028650 

00028660 

00028670 

00028680 

00028690 

00028500 

00028510 

00028520 

00028530 

P0028560 

00028550 

00028560 

00028570 

00028580 

00028590 

00028600 

00028610 

00028620 

00028630 

00028660 

00028650 

00028660 

00028670 

00028680 

00028690 

00028700 

00028710 

0002S720 

00028730 

00028760 

00028750 
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■  "AX  "X  *  *  -  ■  < ■  ~  ^ 


AI  -  DABS(SUM) 

00023760 

NX  «  ZERO 

00028770 

IF  (IM1  . IT .  1)  CO  TO  20  _ 

00028780 

DO  15  K* 1 i XM1 

00028790 

T  ■  LU( X i K >MLU(K< J ) 

00028800 

SUM  *  SUM-T 

00028810 

HI  >  HX+DA8S(T) 

00028820 

15 

CONTINUE 

00028830 

LU(X,J>  »  SUM 

90028840 

23 

MX  *  WI+DAB3C SUM) 

00028850 

IF  (AX  .EQ.  ZERO)  AX  ■  BXOA 

00028860 

TEST  *  WI/AI 

00028870 

IF  (TEST  .GT.  WREL)  WREL  *  TEST 

00028880 

GO  TO  35 

00028890 

WITHOUT  ACCURACY 

00028900 

25 

IF  (IM1  . IT .  15  00  TO  35 

00028910 

DO  30  K*1 . IMl 

00028920 

SUM  *  SUM- L IK  I*)C3MLU(tC»J) 

00028930 

30 

CONTINUE  .  . 

C0028940 

LU(I.J)  *  SUM 

00028950 

35 

CONTINUE 

00028960 

40 

P  «  ZERO 

00028970 

COMPUTE  U(J,J)  AND 

L(Ii J)»  I«J+1#. 

,  .,00028980 

DO  70  I «  J ,  N 

00028990 

SUM  «  LU(X.J) 

00029000 

IF  (IDOT  .EQ.  0)  00  TO  55 

00029010 

WITH  ACCURACY  TEST 

00029020 

AI  «  OABS(SUM) 

00029030 

MI  «  ZERO 

00029040 

IF  ( JM1  ■ LT .  1)  GO  TO  50 

00029050 

DO  45  K«1,JM1 

00029060 

T  ■  LU( 1 1 K ) *LU( K. J ) 

00029070 

SUM  «  SUM-T 

00029080 

MI  ■  WI+DABSCT) 

00029090 

45 

CONTINUE 

0002910: 

LU(I.J)  *  SUM 

00029110 

50 

WI  «  WI+DABS( SUM) 

00029120 

IF  (AI  ,EQ.  ZERO)  AI  •  BIOA 

00029130 

TEST  «  WI/AI 

00029140 

IF  (TEST  .OT,  WREL )  WREl  *  TEST 

00029150 

GO  TO  65 

00029160 

WITHOUT  ACCURACY 

TEST 

00029170 

55 

IF  ( JM1  .LT.  1)  GO  TO  65 

00029180 

DO  60  K«1.JM1 

00029190 

SUM  *  SUM-LU(I,K)*LU(K,J) 

00029200 

60 

CONTINUE 

00029210 

IU(  I >  J )  »  SUM 

00029220 

65 

Q  *  E0UIL( I ) M  DA  BSC  SUM) 

00029230 

IF  (P  ,GE.  0)  GO  TO  70 

00029240 

P  =  0 

00029250 

IMAX  a  1 

00029260 

70 

CONTINUE 

00029270 

TEST  FOR  ALGORITHMIC  SINGULARITY 

00029280 

IF  (RN+P  ,EO.  RN)  00  TO  110 

00029290 

IF  (J  .EQ.  IMAX 1  GO  TO  BO 

00029300 

INTERCHANOE  ROMS 

J 

AND  IMAX 

00029310 

01  «  -D1 

00029320 

DO  75  K 8 1 1  N 

00029330 

P  8  LUUMAX.K) 

00029340 

LU(IMAXiK)  8  LU(J.K) 

00029350 
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on  o  oo 


00029360 

00029370 

00029380 

00029390 

00029900 

00029410 

00029420 

00029430 

00029440 

00029450 

00029460 

00029470 

00029480 

00029490 

00029300 

00029510 

00029520 

00029530 

00029340 

00029550 

00029560 

00029570 

00029380 

00029590 

00029600 

00029610 

00029620 

00029630 

00029640 

00029630 

00029660 

0002967 0 

00029680 

00029690 

00029700 

00029710 

00029720 

00029730 

00029740 

00029750 

00029760 

00029770 

00029780 

00029790 

00029800 

00029810 

00029820 

00029830 

00029840 

00029850 

00029860 

00029870 

00029880 

00029890 

00029900 

00029910 

00029920 

00029930 

00029940 

00029950 


\ 


rain*  naminc*  ula*  n*JWn»n*€i».*i 


TJLTjr^jwj*ir"4r*jr*»«  ^ jt*' 


SOLVE  UX  *  Y  FOR  X 


20  X(I)  «  SO,, 

00  30  IB‘1»M  .  . 

1  «  NH-IB 
IP1  *  I+l 
SUM  ■  XC I ) 

IF  (IP1  .or.  N)  00  TO  30 
DO  23  J*IP1 ,N 

SUM  *  SUM-A( I . J )MX( J ) 
25  CONTINUE 

30  XC  1 3  •  SUM/ACI.X)  .  ... 

RETURN 
END 


SUBROUTINE  LUREFN  ( A. IA, N. UL , IUL, B. IOQT, APVT.X, RES. DX. IER) 


01  MENS  ION  A<  I A ,  1 ) ,  UL  <  I  UL ,  1 ) .  BU ) ,  XC  1 ) ,  RfcSC  1) .  DXt  1 ) 

DIMENSION  APVT(l) 

DOUBLE  PRECISION  A „ ACCXT , B , UL , X, RES • DX , ZERO , XNORM , DXNORM, APVT 

DATA  ITMAX/73/ »2ERO/0 . DO/ 

FIRST.  EXECUTABLE  STATEMENT 

IER*0 

XNORM  ■  ZERO 
00  10  I *1 » N 

XNORM  «  DMAX1(XN0RM,DAB3(X(D) ) . . . . 

10  CONTINUE 

IF  (XNORM  ,NE.  ZERO)  00  TO  20 
I  DOT  «  50 

00  TO  9003  ....  _ _  _ .... 

20  DO  45  ITERil.lTMAX 
DO  30  1*1, N 
ACCXT ( 1 )  «  0.000 

ACCXT(2)  «  0,000  .  .  _  _ 

CALL  VXAODC B(  I ) » ACCXT) 

DO  25  J*l»N 

CALL  VXMUL (-A(I,J),X(J), ACCXT > 

23  CONTINUE  _  ....  _  .  . 

CALL  VXSTOt ACCXT , RES( I ) ) 

30  CONTINUE 

CALL  LUELMN  (UL, IUL, N, RES, APVT, DX) 

DXNORM  «  ZERO  .  ...... 

XNORM  «  ZERO 
DO  35  1*1, N 

X(I)  «  X(I)  ♦  DX(I) 

DXNORM  •  DMAX 1 ( DXNORM, DABS( DX( I ) ) ) 

XNORM  *  DMAX 1 (XNORM, DABS(XCI))) 

35  CONTINUE 

IF  (ITER  .NE.  1)  00  TO  40 
I DOT  *  50 

IP  (OXNORM  .NE.  ZFRO)  IDOT  *  -DLOOIO<  DXNORM/XNORM) 

40  IF  ( XMORM+OXNORM  . EQ .  XNORM)  00  TO  9005 


43  CONTINUE 

% 

IER  *  129 
9000  CONTINUE 

CALI.  UERTST(IER,«HIUREFN) 
9003  RETURN 
END 


ITERATION  DID  NOT  CONVt'RQE 


00029  Ji 3 
00029970 
00029980 
00029990 
00030000 
00030010 
00030020 
00030030 
00030040 
00030030 
00030060 
00030070 
00030000 
00030090 
00030100 
00030110 
00030120 
00030130 
00030140 
00030130 
00030160 
00030170 
00030100 
00030190 
00030200 
00030210 
.  00030220 
00030230 
00030240 
00030230 
.  00030260 
00030270 
00030200 
00030290 
..  00030300 
00030310 
00030320 
00030330 
00030340 
00030350 
00030360 
00030370 
00030380 
00030390 
00030400 
00030410 
00030420 
00030430 
00030440 
00030450 
00030460 
00030470 
00030480 
00030490 
00030500 
0003051 U 
00030520 
00030530 
000305‘0 
00030550 
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ooo 
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c 

c 

c 

c 

c 

c 

c 


C 


C 


c 


c 


SUBROUTINE  UERTST  (IER. NAME) 

SPECIFICATIONS  FOR  ARGUMENTS 

INTEOER  IER 

INTEOER  .  .  NAME(l) 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 
INTEOER  I,  IEQ,  IEQDF.  IOUNIT,  LEVEL,  LEVOLD, NAMEQU). 

*  NAMSET(i >  ,  NAMUPK! 6  ) ■ HIN, NMT4 

DATA  ..  NAMSET/'IHU#  lHEi  1MR,  1H3, 1HE,  1HV 

DATA  NAMEQ/6*IH  / 

DATA  LEVEL/4/, IEQDF/0/,IEQ/lH»/ 

UNPACK  NAME  INTO  NAMUPK 
FIRST  EXECUTABLE  STATEMENT  . 

CALL  USPKD  (NAME, 6, NAMUPK, NMTB) 

OET  OUTPUT  UNIT  NUMBER 


CHECK  IER 


CALL  U0ETI0(1,NIN,1 OUNIT ) 

IF  (IER. OT. 999)  00  TO  25 

IF  (IER.LT.-J2)  00  TO  55 

IF  (IER. LE. 128)  00  TO  5 

IF  (LEVEL. LT.l)  00  TO  SO 

PRINT  TERMINAL  MESSAGE 

IF  (IEQDF  .  c9  1 )  HRI  TEdOUNIT,  J3)  IER.NAMEQ,  IEQ, NAMUPK 
IF  (IEODF.EQ.O)  WRITE! IOUNIT , S3)  ICR, NAMUPK 

00  TO  SO  ..  _  _  . 

3  IF  (IER.LE.64)  00  TO  10 
IF  (LEVEL. LT. 2)  00  TO  SO 

PRINT  WARNING  WITH  FIX  MESSAOE 
IF  (IEQDF. EQ.l)  WRITE! IOUNIT , 40 )  IER, NAMEQ, IEQ, NAMUPK 
IF  (IEQOF.EQ.O)  WRITE! IOUNIT , 40 )  IER, NAMUPK 
00  TO  SO 

10  IF  (IER.LE.S2)  00  TO  13 

PRINT  WARNINO  MESSAOE  . 

IF  (LEVEL. LT.S)  00  TO  30 

IF  (IEQDF. EQ.l)  HRI TE( IOUNIT, 43)  IER.NAMEQ, IEQ, NAMUPK 
IF  (IEQOF.EQ.O)  WRITE(I0UNIT,43)  IER, NAMUPK 
00  TO  50 
15  CONTINUE 

CHECK  FOR  UERSET  CALL 

DO  20  1 1 1 , 6 

IF  ( NAMUPK ( I ) . HE . NAMSETt I ) )  00  TO  23 
20  CONTINUE 

LEVOLD  *  LEVEL 
LEVEL  •  IER 
IER  ■  LEVOLD 

IF  (LEVEL. LT.O)  LEVEL  «  4 
IF  (LEVEL. OT. 4)  LEVEL  *  4 
GO  TO  30 
23  CONTINUE 

IF  (LEVEL.LT. 4)  00  TO  SO 


PRINT  NON-DEFINkD  MESSAOE 

IF  (IEQDF. EQ.l)  WRITE! IOUNIT, 50 )  IER.NAMEQ, IEQ, NAMUPK 
IF  (IEQDF. EQ.O)  WRITE! IOUNIT , 50 )  IER, NAMUPK 
JO  IEQDF  «  0 
RETURN 

J3  FORMAT! 19H  «"K  TERMINAL  ERROR, 10X,7H( IER  *  ,13, 

1  20H)  FROM  IM3L  ROUTINE  .6A1.A1.6AI) 

40  FORMAT! 27M  map  WARNINO  WITH  FIX  ERROR , 2X, 7H( IER  *  ,13, 


00030560 

00050570 

00030560 

00030590 

00030600 

00030610 

00030620 

000306  JO 

00030640 

00030630 

00030660 

00030670 

00030660 

00030690 

00030700 

00030710 

00050720 

000 307  JO 

00030740 

00030730 

00030760 

00030770 

00030780 

00030790 

00030600 

00030810 

00030820 

00030830 

00030840 

00030830 

00030860 

00030870 

00030880 

00030890 

00030900 

00030910 

00030920 

00030930 

00030940 

00030950 

0003096  0 

00030970 

00030980 

00030990 

0003100P 

00031010 

00031020 

00031030 

00031040 

00031050 

00031060 

00031070 

00031080 

00031090 

00031100 

00031110 

00031120 

00031130 

00031140 

00031150 


162 


ooo  n  o  o  oor#  oooo 


rxrk * t  VP V« «TUW«  vtw  t**  v>rt*r.^\***‘'«C7i*nv9«4rt%i*inK.n«.nM^»mn^A*/9»^#J6*<»»zr»^TR*9sm»*i»«i*  *■»«*< 


r4«%*>  rv  »>•  fM* 


1  20..)  FROM  IMSL  ROUTINE  .6A1.A1.6A1) 

AS  FORMAT ( ItH  MHH  HARMING  ERROR. liX.THt IER  «  .13. 

1  20H)  FROM  IMSL  ROUTINE  .6A1.A1.6A1> 

SO  FORMAT ( 20H  MUM  UNDEFINED  ERROR. 9X.7HIIER  •  .IS. 
1  20H)  FROM  IilSL  ROUTINE  .6A1.A1.6A1) 


SAVE  P  FOR  P  »  R  CASE 
P  IS  THE  PAOE  NAMUPK 
R  IS  THE  ROUTINE  NAMUPK 


5S  IEODF  ■  1 
00  60  1*1.6 

60  NAMEQ(I)  ■  NAMUPK(l) 
65  RETURN 
END 


SUBROUTINE  UQETIOI IGPT . N1N. NQUT ) 

SPECIFICATIONS  FOR  ARGUMENTS 
INTEGER  I OPT . NIN, NOUT 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 

INTEOER  NINO. NOUTD 

DATA  NIND/5/.N0UTD/6/ 

FIRST  EXECUTABLE  STATEMENT 

IF  II0PT.E0.3i  00  TO  10 
IF  < I0PT . EQ. 2 )  00  TO  S 
IF  (IOPT.NE.l)  00  TO  9003 
NIN  *  NINO 
NOUT  «  NOUTD 
00  TO  9005 

3  NINO  ■  NIN  .  ...  .  .  .  ..... 

00  TO  9003 
10  NOUTD  «  NOUT 
9005  RETURN 

END  .  ...  . 


SUBROUTINE  VXADOCA, ACC) 


DOUBLE  PRECISION 
DOUBLE  PRECISION 


A , ACC( 2 ) 
X.Y.Z.ZZ 


X  «  ACC(l) 

Y  *  A 

IF  t  DABS ( ACC( 1 ) ) . GE . DABS ( A ) ) 
X  »  A 

Y  «  ACC(l) 

£  *  X+Y 
ZZ  *  (  X-Z ) +Y 


ZZ  •  ZZ+ACCC2) 

Accm  »  z+zz 

ACC(  2 )  »  <Z-ACC(1))+ZZ 
RETURN 


SPECIFICATIONS  FOR  ARGUMENTS 
SPECIFICATIONS  FOR  LOCAL  VARIABLES 
FIRST  EXECUTABLE  STATEMENT 

00  TO  1 

COMPUTE  Z+ZZ  «  ACC( 1 )+A  EXACTLY 


COMPUTE  ZZ+ACCC2)  USINO  DOUBLE 
PRECISION  ARITHMETIC 

COMPUTE  ACCC1 )+ACC(2)  *  Z+ZZ  EXACTLY 


00031160 

00031170 

Q003I180 

00031190 

00031200 

00031210 

00031220 

00031230 

00031260 

00031230 

00031260 

00031270 

00031280 

00031290 

00031300 

00031310 

00031320 

00031330 

00031360 

00031330 

00031360 

00031370 

00031380 

00031390 

00031600 

00031610 

00031620 

00031630 

00031660 

00031450 

00031460 

00031470 

00031460 

00031490 

00031500 

00031510 

00031520 

00031530 

00031540 

00031350 

00031560 

00031570 

00031360 

00031590 

00031600 

00031610 

00031620 

00031630 

00031640 

00031650 

00031660 

00031670 

00031660 

00031670 

00031700 

00031710 

00031720 

00031730 

00031740 

00031750 
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fiMrnvm 


n  nvtrv  rm  »v  <rw  w»w*  n  *  «■*  * 


v,  *n  **  *n  *n  «u>*r»A/»w''v> « 


c 

0 

c 

c 

c 


c 

c 

c 


END 


SUBROUTINE  VXMUL  tA.B.ACC) 

SPECIFICATIONS  FOR  AROUHENTS 

DOUBLE  PRECISION..  A,B,ACCC2) 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 
X,HA,TA.HB,TB 
IX(2), I 

LX(8),LI(4)  ..  ..  . . 

<X,LXU).IX(1)),<I,LI<1>> 

1/0/ 

SPLIT  A  ■  HA+TA 

_  3  «  HB4TB  _ 

FIRST  EXECUTABLE  STATEMENT 


DOUBLE  PRECISION 
XNTEOER 

LOOICAim  _ 

EQUIVALENCE 

DATA 


C 

c 

c 

c 

c 


c 

c 

c 


X  *  A 

11(A)  *  1X0) 
IX(2)  «  0 
I  *  (I/16>*16 
IX(3>  t  LKA) 
HA-X 

TA«A-HA  . . 

X  ■  1 

11(4)  *  LXO) 
1X(2)  «  0 
I  ■  (I/16)*16 
LX(5)  ■  Lit 4) 
‘(B  «  X 
TB  «  l-MB 


X  •  TAMTB 

CALL  VXADD(X» ACC)  _ 

X  ■  HANTS 

CALL  VXADD(X.ACC) 

X  *  TANHB 

CALL  VXADD(X,/>CC) 

X  •  HANHB 

CALL  VXADD(X.ACC) 

RE  TUi(N 

END  .  .  . 


SUBROUTINE  VXSTO  CACC,D> 

DOUBLE  PRECISION  ACC(2),D 

D  «  ACC( I )+ACC(2) . . 

RETURN 

END 


_ COMPUTE  HANHB, HANTS, TANHB,  AND  TANTB 

AND  CALL  VXADD  TO  ACCUMULATE  THE 
SUN 


SPECIFICATIONS  FOR  AROUHENTS 
FIRST  EXECUTABLE  STATEMENT 


SUBROUTINE  ZRPQLY  ( A.NDEO.Z.IER) 

SPECIFICATIONS  FOR  ARGUMENTS 

INTFOER  NDEO.IER 

DOUBLE  PRECISION  ’  A(1),2U)  '  “  ' 


00031760 

0003177  0 

00031780 

00031790 

00031800 

00031610 

00031820 

00031830 

00031840 

00031850 

00031860 

00031870 

QQ031SB0 

00031890 

00031900 

0003)910 

00031920 

00031930 

00031940 

00031930 

00031960 

00031970 

00031980 

00031990 

00032000 

00032010 

00032020 

00032030 

00032040 

0003Z030 

00032060 

00032070 

00032080 

00032090 

00032100 

00032110 

000321 2C 

00032130 

00032140 

00032130 

00032163 

00032170 

00032100 

00032190 

00032200 

00032210 

00032220 

00032230 

00032240 

00032250 

00032260 

00032270 

00032290 

00032290 

00032300 

00032310 

00032320 

00032330 

00032340 

00032350 
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c 

1NTE0ER 
.  REAL 
1 

REAL 

DOUBLE  PRECISION 

1 

DOUBLE  PRECISION 

2 

LOOICAL 

COMMON  /ZRPOLJ/ 

1 


DATA 

DATA 

DATA 

DATA 

DATA 


IER  •  0 

IF  (NDEO  .OT.  100 
ETA  •  REPSR1 
ARE  «  ETA 
RMRE  ■  ETA 
RLO  «  REPSP/ETA 
.C 
C 

XX  •  .7071068 
YY  »  -XX 
SINR  «  .9975641 
COSR  ■  -.06973607 
N  ■  NDEO 
NN  «  N+l 
,C 
■C 

IF  (All)  .NE. ZERO) 
IER  *  130 
QO  TO  9000 


SPECIFICATIONS  FOR  LOCAL  VARIAfc-cS  00032360 

N,NN,J,JJ,I,NMl,ICNT,N2,L,i,Z,NPI  00032370 

ETA, RMRE.RINFP, REPSP, RADIX, RLO, XX. YY.SINR,  00032380 

COSR i RrtAX , RMIN » X , SC , XM*  FT  >  DX«  DF, BND, XXX » ARE  00032390 

PTC  ZOi >  00032400 

T£MP(101),P(101),QP(10l),RK(l01)*QK(101),  00032410 

SVK(lOl)  00032420 

SR.SI,U.V,RA,RB,C,D,A1,A2,A5,  00032430 

A6.A7,E,F,0,H,5ZR,SZI,RLZR,RLZI,  00032440 

T.AA.BD.CC, FACTOR, REPSR1 , ZERO. ONE.FN  000324SO 

ZEROK  00032460 

P, QP. RK. QK, SVK. SR, SI. U,V,RA.RB.C*D,A1,A2, A3, A6. 00032470 
A7, E,F,0,H,SZR,SZI.RL2R,RLZI, ETA, ARC. RMRE, N.NN  00032460 
THE  FOLLOWINO  STATEMENTS  SET  MACHINE  00032490 
.  .  CONSTANTS  USED  IN  VARIOUS  PARTS  OF  00032300 

THE  PROORAM,  THE  MEANINO  OF  THE  00032310 

FuUR  CONSTANTS  ARE  -  REPSR1  THE  00032320 

MAXIMUM  RELATIVE  REPRESENTATION  00032330 

ERROR  WHICH  CAN  BE  DESCRIBED  AS  00032340 

THE  SMALLEST  POSITIVE  FLOATINO  00032330 

POINT  NUMBER  SUCH  THAT  l.tREPSRl  IS00032360 
GREATER  THAN  1  00032370 

.  RINFP  THE  LARGEST  FLOATINO-POINT  00032580 

NUMBER  00032390 

REPSP  THE  SMALLEST  POSITIVE  00032600 

FLOATINO-POINT  NUMBER  IF  THE  00032(10 

_  EXPONENT  RANOE  DIFFERS  IN  SINOLE.  00032(20 

AND  DOUBLE  PRECISION  THEN  REPSP  00032(30 

AND  RINFP  SHOULD  INDICATE  THE  00032640 

SMALLER  RANGE  00032(50 

RADIX  THe  BASE  OF  THE  FLOATINO-POINT  00032(60 


NUMBER  SYSTEM  USED 
RINFP/Z7FFFFFFF/ 

REP5P/Z00100000/ 

RADIX/16.0/ 

REP3R1/Z341 0000000 000000/ 

ZERO/O. 000/ , ONE/ 1 . 000/ 

ZRPOLY  USES  SINOLE  PRECISION 

CALCULATIONS  FOR  SCALING,  BOUNDS 
ANO  ERROR  CALCULATIONS. 

FIRST  EXECUTABLE  STATEMENT 

.OR.  NDEO  .LT.  1)  00  TO  165 


INITIALIZATION  OF  CONSTANTS  FOR 
SHIFT  ROTATION 


ALGORITHM  FAILS  IF  THE  LEADING 
COEFFICIENT  IS  ZERO. 


00  TO  3 


00032670 

00032(00 

00032(90 

00032700 

00032710 

00032720 

00032730 

00032740 

00032730 

00032760 

00032770 

00032780 

00032790 

00032800 

00032810 

00032820 

00032830 

00032840 

00032850 

00032860 

00032870 

00032880 

00032890 

00032900 

00032910 

00032920 

00032930 

00032940 

00032950 
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ooooooooo  oo  on 


5  IF  <A(NN) . NE.ZERO)  00  TO  10 
J  «  NDE0-N4-1 
JJ  ■  J+NDEO 
Z(J>  ■  ZERO 
ZUJ>  *  ZERO 
NN  ■  NN-1 
N  ■  H-l 

IF  (NN.EQ.l)  00  TO  9009 
.  00  TO  9 

10  00  19  I *1 i NN 
PC)  «  Av  I ) 

19  CONTINUE 

20  IK  (N.0T.2)  00  TO  50 
IF  ( H . I T  .  1 )  CO  TO  9009 


REMOVE  THi!  ZEROS  AT  THE  ORIGIN  »*• 
ANY 


MAKE  A  COPY  OF  THE  COEFFICIENTS 


START  THE  ALGORITHM  FOR  ONE  ZERO 


.  CALCULATE  THE  FINAL  ZERO  OR  PAIR  OF 
ZEROS 

IF  (N.EQ.2)  00  TO  29 
ZCNDEO)  *  -P(2)/P<1) 

Z( NDEQ+NDEQ)  ■  ZERO  .  .. 

GO  TO  145 

23  CALL  ZRPQLI  < P<  1 ) , P( 2) . PU) .ZINDEO-l ) ,Z< NOCO+NDEO-1 ) ,Z(NDEO)  . 


1 


Z«.  NDEG+H9E0) ) 
00  TO  199  . 


FIND  LAROEST  AND  SMALLEST  MODULI  OF 
COEFFICIENTS. 


50  UMAX  *  0. 

RMIN  «  RINFP  ...  .. 

DO  99  I ■ 1 • NN  . 

X  ■  ABS( SNQL (  P( I > ) ) 

IF  (X.OT.RMAX)  RMAX  «  X 
IF  (X.NE.O. .AND. X.LT. RMIN)  RMIN  *  X 

59  CONTINUE 

SCALE  IF  THERE  ARE  LARGE  OR  VERY 
SMALL  COEFFICIENTS  COMPUTES  A 
SCALE  FACTOR  TO  MULTIPLY  THE 
COEFFICIENTS  OF  THE  POLYNOMIAL. 
THE  SCALINO  IS  DONE  TO  AVOID 
OVERFLOW  AND  TO  AVOID  UNDETECTED 
UNDERFLOW  INTERFERING  WITH  THE 
CONVERGENCE  CRITERION. 

THE  FACTOR  IS  A  POWER  OF  THE  BASE 

SC  *  RIO/RMIN 
IF  (SC.OT.l.O)  00  TO  AO 
IF  (RMAX. LT. 10. )  00  TO  99 
IF  (3C.EQ.0.)  SC  >  KEPSPNRAD1XM RADIX 
GO  TO  45 

40  IF  (RINFP/SC.LT. RMAX )  00  TO  99 

45  L  *  ALOG(SC>/ALOO<RADIX)*.5 
IF  (L  . EQ .  0)  00  TO  55 
FACTOR  •  DBLE(RADIX>**1 
DO  50  1*1, NN 

30  PU)  *  FACTORXPU) 

COMPUTE  LOWER  BOUND  ON  MODULI  OF 
ZEROS. 

55  DO  60  1*1, NN 

60  PT( X )  <  ABSCSNOLtPCI))) 


00032960 
00032970 
00032980 
00032990 
00033000 
00033010 
00033020 
00033030 
00033040 
00033050 
00033060 
00033070 
00033080 
00033090 
00035100 
0  01)331 1 0 
00033120 
00033130 
00033140 
00033150 
00053160 
00033170 
00033180 
00033190 
00033200 
00033210 
00033220 
30033230 
00033240 
00033250 
00033260 
00033270 
00033280 
00033290 
00033300 
00033310 
00033320 
00053330 
00033540 
00033350 
00033360 
00033370 
00033380 
00033390 
00033400 
00033410 
00033420 
00033430 
00033440 
00035450 
00033460 
00033470 
000.33480 
00033490 
00033500 
00033510 
00033520 
00033530 
00033540 
00053550 
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non  on  o  no 


PT(NN)  «  •PTtNN) 

COMPUTE  UPPER  ESTIMATE  OF  BOUND 
X  ■  EXP( ( ALOOC -PT( NN) )-AL0C(PT d ) ) )/N) 

IP  (PT(N).EQ.O.)  00  TO  65 

IF  NEWTON  STEP  AT  THE  ORIGIN  IS 
BETTER.  USE  IT. 


XN 

IF 


«  -PTCNN)/PT(N) 
(XM.LT.X)  X  «  XM 


43  XM  ■  XX, i 
FF  ■  PT(1) 

00  70  1*2, NN 
70  FF  «  FFXXM+PTd) 

IF  CFF.LE.O.)  00  TO  7S 
X  »  XM 
00  TO  63 


CHOP  THE  INTERVAL  (O.X)  UNTIL  FF.LE. 


73  DX  ■  X 


80 


IF 

FF 

DF 


<AB$<DX/X! .IE 

•  PTU) 

•  FF 

DO  83  I *2. N 

FF  «  FFXX+PTd) 
DF  *  DFKXtFF 
83  CONTINUE 

FF  »  FFFX+PTINM) 

DX  ■  FF/DF 
X  »  X-DX 
00  TO  80 
90  8ND  *  X 


DO  NEWTON  ITERATION  UNTIL  X 

CONVEROES  TO  TWO  DECIMAL  PLACES 

.003)  00  TO  90 


COMPUTE  THE  DERIVATIVE  AS  THE  INTIAL 
X  POLYNOMIAL  AND  DO  3  STEPS  WITH 
NO  SHIFT 


NM1  •  N-l 
FN  «  ONE/N 
DO  95  1-2, N 

93  RK(I)  »  (NN-I  )*P< I JNFN 
RK(1>  -  Pd) 

AA  *  P(NN) 

BB  ■  P(N> 

ZEROK  «  RK(N) . EO . ZERO 
DO  115  JJ  ’1.3 
CC  *  RK(  N ) 

IF  (ZEROK)  00  TO  105 

C  USE  SCALED  FORM  OF  RECURRENCE  IF 

C  VALUE  OF  K  AT  0  IS  NONZERO 

T  «  -AA/CC 
00  100  1*1, NMi 
J  ■  NN-I 

RK<  J  )  »  T*RK( J-l )*P( J) 

100  CONTINUE 

RK(l)  »  Ptl) 

ZEROK  >  DABS(RK(N)).LE.DABS(BB)KETAM10. 

00  TO  113 

C  USE  UNSCALED  FORM  OF  RECURRENCE 

105  CO  110  I “l, NMI 

J  «  NN-I 
RK(J)  »  RK(J-l) 

110  CONTINUE 


00033560 

00035370 

00033580 

00033590 

00035600 

00033610 

00033620 

00033630 

000025640 

00033630 

00033660 

00033670 

00033680 

00033690 

00033700 

00035710 

00033720 

00053730 

00053740 

00033750 

00033760 

QO0J3770 

00033780 

00033790 

00033300 

00033810 

00033820 

00033830 

00033840 

00033850 

00053860 

00033870 

00033880 

00033890 

00033900 

00033910 

00033920 

00033930 

00033940 

00033950 

00033960 

00033970 

00033980 

00033990 

00034000 

00034010 

00034020 

00034030 

00034040 

00054050 

00034060 

00034070 

00054080 

00034090 

00034100 

00034110 

00034120 

00034130 

00034140 

00034150 


1G7 
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1 


C 

C 

C 


C 

c 

c 


RKC11  •>  ZERO 
ZEROK  «  RK(M> .EQ.ZERO 
115  CONTINUE 

DO  120  Z *1 » N 
120  TEMP(I)  ■  RK( I) 


DO  140  ICNT«1,20 


XXX  ■  COSRMXX-SINRMYV 
YY  «  SINRnXX+COSRmYY 
XX  *  XXX 
SR  »  BNDRXX 

SI  ■  BMDHYY  ~  - 

U  "  -SR-SR 
V  «  BNDMBND 


CALL  ZRPQLB  (20*ICNT,NZ> 
IF  (NZ.EQ.O)  OO  TO  ISO 


J  •  NDEO-N+l 
JJ  •  J+NDEO 
Z(J)  »  3ZR 

z(jj>  ■  szx  - 

NN  a  NN-NZ 
N  »  NN-1 
DO  125  I'l.NN 
Pf!)  *  0P(I) 

IF  (NZ.EQ.l)  OO  TO  20 
ZCJ+1)  «  RLZR 
Z(JJH)  •  RLZI 
OO  TO  20 


130  DO  135  X*1.N 

133  RX(X>  «  TEMPI  I) 

140  CONTINUE 


IER  *  131 

143  DO  130  1*1 ,  NDEQ 
NPI*  NDEO+I  ' 
PU)  «  ZINPIJ 
130  CONTINUE 

N2  «  NDEOi-NDEO 
J  "  NDEO 


SAVE  K  FOR  RE5TARTS  WITH  NEW  SHIFTS 


LOOP  TO  SELECT  THE  QUADRATIC 
CORRESPONDINO  TO  EACH  NEW  SHIFT 

QUADRATIC  CORRESPONDS  TO  A  DOUBLE 
SHIFT  TO  A  NON-REAL  POINT  AND  ITS 
COMPLEX  CONJUGATE.  THE  POINT  HAS 
MODULUS  BND  AND  AMPLITUDE  ROTATED 
BY  94  DEGREES  FROM  THE  PREVIOUS 
SHIFT .  _  .  . 


SECOND  STAGE  CALCULATION*  FIXED 
QUADRATIC 


THE  SECOND  STAOE  JUMPS  DIRECTLY  TO 
OHE  OF  THE  THIRD  STAOE  ITERATIONS 
AND  RETURNS  HERE  IF  SUCCESSFUL. 
DEFLATE  THE  POLYNOMIAL,  STORE  THE 
ZERO  OR  ZEROS  AND  RETURN  TO  THE 
MAIN  ALOORITHH. 


IF  THE  ITERATION  IS  UNSUCCESSFUL 
ANOTHER  QUADRATIC  lb  CHOSEN  AFTER 
RESTORINO  K 


RETURN  WITH  FAILURE  IF  NO 
CONVERGENCE  WITH  20  SHIFTS 

CONVERT  ZEROS  (Z)  IN  COMPLEX  FORM 


00034 140 
00034170 
00034180 
00034190 
00034200 
00034210 
00034220 
00034230 
00034240 
00034230 
00034260 
00034270 
00034280 
00034290 
00034300 
00034310 
00034320 
00034330 
00034340 
00034330 
00034360 
00034370 
00034360 
00034390 
00034400 
00034410 
00034420 
00034430 
00034440 
0003*430 
30H34460 
00034470 
00034480 
00034490 
00034300 
00034310 
00034320 
00034330 
00034540 
00034530 
00034560 
OOOJ4570 
00034580 
00034590 
Q003460C 
00034610 
00034620 
00034630 
0003464(1 
000346  5U 
00034660 
00034610 
00034680 
00034690 
00034700 
00034710 
00034. ’20 
40034  30 
00034740 
00034750 
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00  155  I .MDEO 
Z t H2- 1 >  «  Z<J> 

ZIN2)  »  P<J) 

N2  ■  N2-2 
J  •  J-l 
1SS  CONTINUE 

IF  ( 1ER  . E9.  0)  00  TO  9005 

* 

N2  ■  2*( NDEO-NN )+3 
DO  160  1*1, N 
Z<N2>  *  RXNFH 
Z(  N2+1 )  •  RINFP 
N2  *  N2+2 
160  CONTINUE 
00  TO  9000 
165  IER  *  129 
9000  CONTINUE 

CALL  UERTST  C IER.6HZRPOLY5 
9005  RETURN 
END 


INTEGER 

REAL 

l 

DOUBLE  PRECISION 
DOUBLE  PRECISION 


LOOICAL 

COMMON  /ZRPQLJ/ 

1 

data 
NZ  *  0 


00054760 

00034770 

00034760 

00034790 

00034800 

00034810 

00034S70 

SET  UNFOUND  ROOTS  TO  MACHINE  INFINITY00034S30 

00034840 

00034850 

00034860 

00034870 

00034880 

00034890 

.  00034900 

00034910 
00034920 
00054930 
00034940 
00034950 
00034960 
00034970 
00034930 
00054990 
00035000 
00035010 
00035020 
00035050 
00035040 
00033050 
00035060 
00035070 
00035080 
00035090 
00035100 


SUBROUTINE  ZRPQLB  (L2.NZ) 

SPECIFICATIONS  FOR  AROUMENTS 

INTEGER  LC.NZ 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 
. NN. J i I TYPE, 1 , IFLAO 


N. 

ARE. BETAS, BETAV, ETA, OSS. OTS.OTV.OVV,  SURE, SS, 
TS.TSS,TV,TV*(,VV 

P(101),QP(101),RK(101),QKtl01),  SVKdOl ) 
SR,SIiU,V,RA.RB.C,D,Al,A2,A3, 

A6 , A7 , E, F,0, H, SZR  <  SZI , RLZR, RLZt , 

SVU.SVV.UI.VI.S.ZERO 
VPASS,SPA3S,VTRY,STRY 
P, QP, RK, 9K,SVK, SR, SIiU,V,RAiRB,C,D,A1,A2, A3, A6, 00035110 
A7, E.F.G.M, SZR, SZI, RLZR, RLZI, ETA, ARE, RMRE.N.NN  00035120 
ZERO/O. 0D0/  00035130 

FIRST  EXECUTABLE  STATEMENT 


COMPUTES  UP  TO  L2  FIXED  SHIFT 
K-POIYNOMI ALS ,  TESTING  FOR 
CONVERGENCE  IN  THE  LINEAR  OR 
QUADRATIC  CASE.  INITIATES  ONE  OF 
THE  VARIABLE  SHIFT  ITERATIONS  AND 
RETURNS  WITH  THE  NUMBER  OF  ZEROS 
FOUND. 

L2  -  LIMIT  OF  FIXED  SHIFT  STEPS 
NZ  -NUMBER  OF  ZEROS  FOUND 

BETAV  *  .23 
BETAS  >  .25 
OSS  =  SR 
OVV  «  V 

C  EVALUATE  POLYNOMIAL  BY  SYNTHETIC 

C  DIVISION 

CALL  ZRP9LH  (NN.U.V.P.QP.RA.RB) 

CALL  ZRPOLE  1 1  TYPE) 

DO  40  J*  1 , L2 

C  CALCULATE  NEXT  K  POLYNOMIAL  AND 

C  ESTIMATE  V 


00035140 
00035150 
00035160 
00035170 
00035180 
00035190 
00035200 
00035210 
00035220 
00035230 
00035240 
00035250 
0CU3526U 
00035270 
00035280 
00035290 
00035300 
0003531 C 
00035520 
00035550 
00035340 
00035550 
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•7"] 


v- 


f 

*,  . 
V.*  *f 

s‘ 


■v*.  • 


•  % 
.V 


II 


ooo  ooo  oooo  oo  ooo 


CALL  c.fQLF  (HYPE) 

CALL  ZRPQLE  ( I  TYPE  ) 

CALL  ZRPQLG  (ITYPE.UI.VI) 

VV  a  VI 

ESTIMATE  S 

SS  =  0. 

IF  (RK( N) . NE.ZERO)  $$  «  -P(NN)/RK(N) 

TV  «  1. 

TS  *  1 . 

IF  ( J .  EQ , l , OR . ITYPE.EQ .3)  00  TO  35 

COMPUTE  RELATIVE  MEASURES  OF 

CONVERGENCE  OF  S  AND  V  SEQUENCES 
IF  (VV.NE.O.)  TV  *  ABS( (VV~0VV)/VV) 

IF  (33.NE.Q.)  TS  »  ABS( ( SS-OSS )/SS 

..  .  IF  DECREASING,  MULTIPLY  TWO  MOST 
RECENT  CONVERGENCE  MEASURES 

TVV  =  1. 

IF  (TV.LT.OTV)  TVV  *  TV*OTV 

IFJCT3.LT.0TS)  T35  *  TSXOTS 

COMPARE  WITH  CONVERGENCE  CRITERIA 

VPASS  a  TVV.LT.BETAV 
SPASS  *  T5S.LT. BETAS 
IF  (  .NOT. (SPASS. UR. VPASS))  00  TO  35 

AT  LEAST  ONE  SEQUENCE  HAS  PASSED  THE 
CONVERGENCE  TEST,  STORE  VARIABLES 
BEFORE  IT  c'RATING 

SVU  *  U 
SVV  «  V 
DO  5  1*1, N 
SVKCI)  *  RK(I) 

S  a  SS 

CHOOSE  ITERATION  ACCORDING  TD  THE 
FASTEST  CONVERGING  SEQUENCE 

VTRY  »  .FALSE. 

3TRY  *  .FALSE. 

I"  (SPASS  AND. ((.NOT. VPASS). OR. TSS.LT. TVV))  00  TO  20 
CALL  ZRPQLC  (UI.VI.NZ) 

IF  (NZ.OT.O)  RETURN 

QUADRATIC  ITERATION  HAS  FAILED.  FLAG 
THAT  IT  HAS  BEEN  TRIED  AND 
DECREASE  THE  CONVERGENCE 
CRITERION. 


VTRY  s 
BFTAV 


TRUE. 

5ETAVX.25 


TRY  LINEAR  ITERATION  IF  IT  HAS  NOT 
BEEN  TRIED  AND  THE  S  SEQUENCE  IS 
CONVERGING 

IF  (STRY.OR.f  .MOT. SPASS))  GO  TO  25 
DO  15  1*1. N 
RK(I)  =  SVK(I) 

CALL  ZRPQLD  (S.NZ.IFIAO) 

IF  (NZ.GT.O)  RETURN 


STRY  a  .TRUE. 

BETAS  *  BETAS*. 25 
IF  (IKIAO.EQ, 0)  GO  TO  25 


LINEAR  ITERATION  HAS  FAILED.  FLAG 
THAT  IT  HAS  BEEN  TRIED  AND 
DECREASE  THE  CONVERGENCE  CRITERION 


IF  LINEAR  ITERATION  SIGNALS  AN 


00035360 
00035370 
00035380 
00035390 
00035400 
00035410 
00035420 
00035430 
00035440 
00035450 
00035460 
0C035470 
00035480 
00035490 
00035500 
00035510 
00035520 
00035530 
00035540 
00035550 
00035560 
00035570 
00035580 
00035590 
00035600 
00035610 
00035620 
00035630 
00035640 
00035650 
00035660 
00035670 
00035(80 
00035690 
00035700 
00035710 
00035720 
0003573 U 
00035740 
00035750 
00035760 
00035’70 
00035780 
00035790 
00035800 
00035810 
00035820 
00035830 
00035840 
C  00  3  58  50 
00035860 
00035870 
00035880 
00035890 
00035900 
00035910 
00035920 
00035930 
00035940 
00035950 


C-f) 
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r> J f.  w *■.  ■  «.- <-  u- 1-  >.-.  •-- 


ALMOST  DOUBLE  REAL  ZERO  ATTEh, 
QUADRATIC  INTERATION 


25 


50 


RESTORE  VARIABLES 


55 


UI  «  -<S+S).  . 

VI  «  S*S 
00  TO  10 

U  *  5V;J 
V  *  SVV 
DO  50  I»’ ,N 
P.K(I)  *  .K(I> 

.TRY  QUADRATIC  ITERATION  IF  IT  HAS 
NOT  BEEN  TRIED  AND  THE  V  SEQUENCE 
IS  CONVEROINO 

IF  (VP ASS .AND. < . NOT . VTRY) )  00  TO  10 

.  ..  RECOMPUTE  QP  AND  SCALAR  VALUES  TO 
CONTINUE  THE  SECOND  STAGE 
CALI.  2RPQLH  <NN,  U,  V.P.QP.RA.RB) 

CALL  ZRHJLfc  (ITYPE) 

VV 
SS 
TV 
TS 


OVV 
OSS 
OTV 
OTS 
40  CONTINUE 
RETURN 
END 


SUBROUTINE  ZRPQLC  (UU.VV.NZ) 

SPECIFICATIONS  FOR  ARGUMENTS 
NZ 

UU.VV 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 
N.NN, J, I, ITYPE 

ARE,EE,ETA,OMP,RELSTP.RMP,RMRF;,T,ZK 
P(101 >,qP(I01).RK(101).QK(101).SVK(101) 
SR»SI.U,V,RA,RB,C.DfAl.A2.A5i 
A6,A7,E,F,G,H.5ZRiSZX,RLZR,RL2I, 
UI.VI.ZtRO.PTOl.ONE 
TRIED 

P,QP.RK,QK,3VIC,SR,5I,'J.V,RA,RB.C.D.A1,AZ,A3.A6 
A7.E. F, 0, N,SZR.SZI,PLIR,RLZI, ETA, ARE, RMRE, N.NN 
ZERO. PT01,  ONE/ 0.000,0.0100,1. CD  0/* 

FIRST  EXECUTABLE  STATEMENT 


INTEGER 

DOUBLE  PRECISION 

INTEGER 

REAL 

DOUBLE  PRECISION 
DOUBLE  PRECISION 


LOGICAL 

COMMON  /7RPQLJ/ 

1 

DATA 


NZ 


.FALSE. 


VARIABLE-SHIFT  K-POLYNOMIAL 

HERAT. ON  FOR  A  QUADRATIC  FACTOR 
CONVERGES  ONLY  IF  THE  ZEROS  ARE 
EQUIMODULAR  OR  NEARLY  SO 
UU.VV  -  COEFFICIENTS  OF  STARTING 
QUADRATIC 

NZ  -  NUMBER  OF  ZERO  FOUNP 


TRIED  = 

U  =  UU 
V  «  VV 
J  *  0 

MAIN  LOUP 

CALL  ZRPQI.I  (ONE.U.V.SZR.SZI.RLZR.RLZI) 

RETURN  IF  ROOTS  UF  THE  QUADRATIC  ARE 
REAL  AND  NOT  CLOSE  TO  MULTIPLE  OR 


00055950 
00055970 
00055°BO 
00055990 
OU036000 
00035010 
00035020 
00035030 
00055040 
00035050 
00035050 
00036070 
00036080 
00036090 
00036 i 00 
00035110 
00036120 
00035130 
00036140 
00036150 
00036160 
00036170 
00036180 
00036190 
00036200 
00036210 
00036220 
00036230 
00036240 
00036250 
00036260 
00036270 
00036280 
00036290 
00036300 
0003  310 
00036320 
00036330 
00036340 
00036350 
,00036360 
00036370 
00036380 
00036390 
00036400 
00036410 
00036420 
000  36  50 
000  564*J 
00036430 
00056460 
00036470 
00056480 
00036490 
00036500 
00036510 
00056520 
00036530 
00036540 
00036550 
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/ 


NEARLY  EQUAL  AND  OF  OPPOSITE  jIGN 
IF  (  DABS ( DABS ( SZR )  -DABS( HLZR ) ) .GT.PTOIXDABS(RLZR))  RETURN 

EVALUATE  POLYNOMIAL  BY  QUADRATIC 
SYNTHETIC  DIVISION 

CALL  ZRPOLH  CHN.U  V.P.QP.RA.RB) 

RMP  *  DAB3CRA-SZRrRB)*DA8SCSZIXRB> 

COMPUTE  A  RIGOROUS  BOUND  ON  THE 
ROUNDING  ERROR  IN  EVALUTING  P 

ZM  «  SQRTIASStSNCLmn 
Et  *  2 . x A3S( 3NGL( DPI 1 )  ) ) 

T  «  -SZRXRB 
DO  10  I--2.N 

10  EE  =  eE*ZM  +  A8S(SN3L(<3P(I))) 

EE  a  F.E«2MMB5<3NGL<RAm) 

EE  «  (5. «RMRE+4.*4RE)xEE-(5.XRMRE+2, XARE)X(ABS( SNGL  t  R A ) ♦ T ) ♦ 

I  Aa3<:NCLtR3))*ZM)*2.XARE*AaS(T) 

ITERATION  HAS  CONVERGED  SUFFICIENTLY 
IF  THE  POLYNOMIAL  VALUE  IS  LESS 
THAN  20  TIMES  THIS  BOUND 

IF  (RMP.OT.20.XEE)  GO  TO  IS 
NZ  *  2 
RETURN 
15  J  *  J+l 

STOP  ITERATION  AFTER  20  STEPS 

IF  ( J  . GT . 20 )  RETURN 
IF  (J.LT.2)  GO  VO  25 

IF  (REL3TP.0T. . 01 . OR . RMP . LT .OMP , OR . TRIED)  00  TO  25 

A  CLUSTER  APPEARS  TO  BE  STALLING  THE 
CONVERGENCE .  FIVE  FIXED  SHIFT 
STEPS  ARE  TAKEN  WITH  A  U,V  CLOSE 
TO  THE  CLUSTER 

IF  (RELSTP.LT. ETA)  RELSTP  *  ETA 
RELSTP  x  SQRTt  RELSTP) 

U  a  U-UXREL5TP 
V  *  V+VXRELSTP 

CALL  ZRPOLH  ( NN . U. V , P . QP . RA , RB ) 

DO  20  1=1,5 

CALL  ZRP9LE  (ITYPE) 

CALL  ZRPQLF  (ITYPE) 

20  CONTINUE 

TRIFD  =  .TRUE. 

J  «  o 

25  OMP  a  rmp 


CALL  ZRPQIE  ( ITYPE  ) 

CALL  2RP3LF  (ITYPE) 

CALL  ZRPOLE  UTYFc) 

CALL  ZRPQLG  ( ITYPE. UI , VI ) 


IF  (VI. EQ  ZERO)  RETURN 
RELSTP  a  DAD5( ( V I -V  )/ V I ) 
U  =  UI 
V  a  VI 
GO  TO  5 
END 


CALCLIL ATF  NEXT  K  POLYNOMIAL  AND  NEW 
U  AND  V 


IF  VI  IS  ZERO  THE  ITERATION  IS  NOT 
CONVERSING 


00026560 

00036570 

00036580 

00336590 

00036600 

00036610 

00036620 

00036630 

000366  AO 

00036650 

00036660 

00036670 

00036630 

00036690 

00036700 

00036710 

00036720 

00036730 

00036740 

00036750 

00036760 

00036770 

00036780 

00036790 

00036800 

00036810 

00036820 

00036830 

00036840 

03036850 

00036860 

00036870 

00036880 

00036890 

00036900 

00036910 

00056920 

00036930 

00036940 

00036950 

00  C  36  960 

00036970 

00036980 

00036990 

0003700U 

00037010 

00037020 

U0CS/030 

00037040 

00057050 

0003706 0 

000370/ 0 

00037080 

00037090 

00037100 

00037110 

00037 120 

00037 1 30 

00037140 

00037150 


17? 


INTEGER 

DOUBLE  PRECISION 

INTEGER 

REAL 

DOUBLE  PRECISION 
DOUBLE  PRECISION 


SUBROUTINe  ZRPQLD  C SSS. NZ, IFLAO) 

SPECIFICATIONS  FOR  ARGUMENTS 

N2.IFLAO 
SSS 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 

N.NN.J.I 

ARE.  EE,  ETA  ,OMP,»'MP,  RMS,  RMRE 
P(1Q1),QP(101),NK(101),QK(101),SVK(101) 
SR.SI,U,V,RA,RB.C.D,A!,A2.A3, 
A6,A7,E,F,Q.H,3ZR,SZI,RLZR,RLZI, 
PV,RKV,T,S,ZERO.PTPQl 

P,QP.RK,QK.SVK.S>R,SI.U,V,RA.R8.C.D,A1.A2,A3.A6. 
A7 , E, F, 0, H, S2R .ETI.RL2R.RL2I# ETA, ARE, RMRE, N, NN 
ZERO/O.ODO/.PTOO I/O. 00100/ 

...  ...  —..VARIABLE-SHIFT  H  POLYNOMIAL 

ITERATION  FOR  A  REAL  ZERO  SSS  - 
STARTING  ITERATE 
NZ  -  NUMBER  OF  ZERO  FOUND 

.  IFLAG  -  FLAG  TO  INDICATE  A  PAIR  OF 

ZEROS  NEAR  REAL  AXIS 
FIRST  EXECUTABLE  STATEMENT 

NZ  »  0 
S  »  SSS 
IFLAO  4  o 
J  *  0 


COMMON  /ZRPQLJ/ 
l 

DATA 


5  PV  *  PC1J 


QP(l)  *  PV 
00  10  I«2. NN 

PV  *  PVKS+PCI) 
9PCI)  t  PV 
CONTINUE 
RMP  -  DABS CPVJ 


10 


15 


MAIN  LOOP 
EVALUATE  P  AT  S 


A  RIGOROUS  BOUND  ON  THE 
i.«  EVALUATING  P 


20 


.  COMPUTE 
ERROK 

RMS  *  DABSCS) 

EE  =  ( RMRE/ C  ARE+RMRE) ) *ABS C SNGL  (QPC1 1 ) ) 

DO  15  1=2, NN 

EE  «  EExRMS+ABSCSNGL ( QPC I ) ) 1 

ITERATION  HAS  CONVERGED  SUFFICIENTLY 
IF  THE  POLYNOMIAL  VALUE  IS  LESS 
THAN  20  TIMES  THIS  BOUND 

IF  ( RMP . GT . 20 . R( C ARETRMRE )*EE-RMRE*RMP ) )  GO  TO  20 

NZ  »  1 

SZR  *  S 

SZI  =  ZERO 

RETURN 

J  =  J  +  l 


STOP  ITERATION  AFTER  10  STEPS 

IF  CJ.GT.IO)  RETURN 
IF  (J.LT.2)  GO  TO  25 

IF  (DABSm.GT.PTOQUDADSCS-TJ.OR.RMP.LE.OMP)  00  TO  25 

A  CLUSTER  OF  ZEROS  NEAR  THE  REAL 
AXIS  HAS  BEEN  ENCOUNTERED  RETURN 
WITH  IFLAO  SET  TO  INITIATE  A 
QUADRATIC  ITERATION 


00017160 
00037170 
00037180 
00037190 
00037200 
00037210 
00037220 
000372.30 
00037240 
00037250 
00037260 
00037270 
00037280 
00037290 
00037300 
00037310 
00037320 
00037330 
00037340 
00037350 
00037360 
00037370 
00037380 
00037390 
00037400 
00037410 
00037420 
00037430 
00037440 
00037450 
00037460 
00037470 
00037480 
00037490 
00037500 
00037510 
00037520 
00037330 
00037540 
00037550 
00037560 
00037570 
00037580 
00037590 
00037600 
00037610 
00037620 
00037630 
000  3’t  O 0 
00037650 
00037660 

00037570 

00037680 

00037690 

00037700 

00037710 

00037720 

00037730 

00037740 

00037750 


IFLAG  =  1 
SSS  a  S 
RETURN 


23  OMP 


RKV  «  RK( 1 > 
QKU)  *  RKV 


COMPUTER 
LATEST  REVISION 


-  I BM/DOU8LE 

-  JANUARY  1,  1978 


W  ’JT3W 


RETURN  IF  THE  POLYNOMIAL  VALUE  nAS 
INCREASED  SIGNIFICANTLY 

COMPUTE  T,  THE  NEXT  POLYNOMIAL,  AND 
THE  NEH  ITERATE 


DO  SO  1*2, N 

RKV  *  RKVXS+RKl  X ) 

OKI  I)  *  RKV 
50  CONTINUE 

IF  (DASS(RKV).LE.DABS(RK(N))K10.HETA>  00  TO  40 

USE  THE  SCALED  FORM  OF  THE 

RECURRENCE  IF  THE  VALUE  OF  K  AT  S 
IS  NONZERO 

T  *  -PV/RKV 
RK( 1 )  *  OP(l) 

DO  35  1*2, N 

35  RK(  I )  *  T*QKU-1)+QPCI) 

00  TO  50 

USE  UNSCALED  FORM 

40  RK( I )  »  ZERO 
DO  45  1*2. N 
45  RK( I )  «  QK ( 1*1 ) 

50  RKV  *  RK ( 1 ) 

DO  55  1*2. N 
55  RKV  *  RKVKS+RKU) 

T  *  ZERO 

IF  CDABS(RKV) . OT . DABS< RK< N) ) *10 . *ETA >  T  *  -PV/RKV 
S  «  S*T 
00  TO  5 
END 


IMSL  ROUTINE  NAME  -  ZRPQLE 


SUBROUTINE  ZRPQLE  (ITYPE) 

SPECIFICATIONS  FOR  ARGUMENTS 

INTEGER  ITYPE 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 

INTEGER  N.NN 

REAL  ARE, ETA.RMRE 

DOUBLE  PRECISION  PC  1 01 ) . QPC 101 ) ,RK< 101 ) ,9K(1 01 ) , SVK< 101 ) 

DOUBLE  PRECISION  SR . SI , U, V , RA , RB, C, D, Al , A2 , A3. 

I  A6.A7,E.F.O.H.SZR,SZI.RLZR.RLZI 

COMMON  ✓ZRPQLJ/  P , QP, RK , QK , SVK, SR, SI , U, V, RA , RB , C, D, Al , A2, A3 , A6 
1  A7,E,F,G,H,SZR,SZI,RLZR,RLZI,ETA, ARE, RMRE, N , NN 

THIS  ROUTINE  CALCULATES  SCALAR 
QUANTITIES  USED  TO  COMPUTE  THE 
NEXT  K  POLYNOMIAL  AND  NEW 
ESTIMATES  OF  THE  QUADRATIC 
COEFFICIENTS 

ITYPE  -  INTEGER  VARTABLE  SET  HERE 


00057760 
00037770 
00037760 
00037790 
00057800 
00037810 
00037820 
00037830 
00037840 
00037850 
00037860 
00037870 
00037380 
00037890 
00037900 
00037910 
0005^920 
00037930 
00057940 
00037950 
00037960 
00037970 
00037980 
00037990 
00038000 
00038010 
00038020 
00038030 
00058040 
00038050 
00058060 
00038070 
00058080 
00038090 
00038100 
00038110 
0C038120 
-00038130 
00038 140 
00038150 
00038160 
00038170 
00038180 
00038190 
00038200 
J0038210 
00038220 
00C38230 
00058240 
OOUjb25u 
00038260 
00038270 
,00038280 
00038290 
00038300 
00038313 
00058  320 
00038  530 
00058  340 
C  00  58  350 
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n.n.TVK5ir  ka  v  x.\n  -crmw  v 


£ 


A 

A 

£ 


tj*., 


»> 


K' 


1 


c 

c 

c 

c 

c 


c 

c 


INDICATING  MOW  THE  CALCULATE,..* 
ARE  NORMALIZED  TO  AVOID  OVERFLOW 
.  .  SYNTHETIC  DIVISION  OF  K  BY  THE 

QUADRATIC  l.U.V 
FIRST  EXECUTABLE  STATEMENT 

CALL  ZRPQLH  ( N.U. V, RK. QK.C, D> 

IF  (DABS(C).OT.DABS(RK(N))MIOO.KETA)  00  TO  5 
IF  (DABS(D) .OT.DABS(RK(N-1))N10Q.mETA)  00  TO  S 
I TYPE  *  S 

TYPE’S  INDICATES  THE  QUADRATIC  IS 
ALMOST  A  FACTOR  OF  K 


RETURN 

s 

IF  ( DABS(D) .LT.DABS(C) 

i;  c 

<  c 

ITYPE  »  2 

i 

C  *  RA/D 

F  *  C/D 

f- R 

0  •  UMRB 

r.1 

H  «  VMRB 

A3  ■  (RA+Q)ME+HM(RB/D) 

\ 

Al  ■  RBMF-RA 

> 

A 7  »  (F+U)*RA+H 

RETURN 

%  c 

•*.  c 

10 

ITYPE  ’  I 

f. 

E  «  RA/C 

f\ 

}J 1 

F  •  D/C 

0  «  U»E 

> 

H  «  VMRB 

* 

A3  «  RA*E+( H/C+Q)MRB 

AI  «  RB~RAM( D/C) 

A7  *  RA+OMD+HMF 

L1? 

RETURN 

C/ 

K  c 

V 

END 

SUBROUTINE  ZRPQL F  (ITY 

TYPE*?  INDICATES  THAT  ALL  FORMULAS 
ARE  DIVIDED  BY  D 


TYPE«1  INDICATES  THAT  ALL  FORMULAS 
ARE  DIVIDED  BY  C 


INTEGER 


ITYPE 


INTEGER 

REAL 

DOUBLE  PRECISION 
DOUDLE  PRECISION 


SPECIFICATIONS  FOR  ARGUMENTS 
SPECIFICATIONS  FOR  LOCAL  VARIABLES 


1 


COMMON  /ZRPQLJ/ 


C 

C 

c 


DATA 


IF  (ITYPE. EQ. 3) 
TEMP  *  RA 
IF  (ITYPE. EQ.l) 
IF 


N,NN,t 
ARE.ETA.RMRE 

P(101),QP<;01),RK(10i>,QKU01>,SVK(I01> 
SR,$I,U,V,RA,R#,C,D,A1,A2,A3, 
A6,A7,E,F,G,H,SZR,5ZI,RLZR>RLZI » TEMP, ZERO 
P.0P.RK,QK,SVK,SR,SI,U>V,RA,RB,C,D.AI.AZ,A3,A6 
A7 , E. Fi G,H,SZR, SZI , KLZR, RIZI , ETA, ARE.RMREi N,NN 
ZERO/O. 000/ 

COMPUTES  THE  NEXT  X  POLYNOMIALS 
USING  SCALARS  COMPUTED  IN  ZRPQLE 
FIRST  EXECUTABLE  STATEMENT 


GO  TO  20 


TEMP  *  RB 


(  DABSt  A1 )  .  OT  ,  DA8S(  TEMP  ) BETA » 1(1 .  )  GO  TO  10 

IF  A1  IS  NEARLY  ZERO  THEN  USE  A 
SPECIAL  FORM  OF  THE • RECURRENCE 


00038360 
00038370 
00038380 
00038390 
00038400 
00038410 
00O3B4Z0 
00038430 
00038440 
00038450 
00038460 
00038470 
00038480 
00038490 
00038500 
00038510 
00038520 
00038530 
00036540 
00038550 
Q0036560 
00038570 
00038580 
0003859 J 
Q0038600 
00036610 
00038620 
00038630 
00038640 
00038650 
00038660 
00038670 
00038680 
00038690 
00038700 
00038710 
00038720 
00038/30 
00038740 
00038/50 
00038760 
00038/70 
00038780 
00038790 
C0038800 
00038810 
00038820 
00038830 
,00038840 
00038850 
00038860 
00038870 
00038880 
00038890 
00038900 
0003891Q 
00038920 
000  38931) 
00038940 
00038950 


'TTVTTV': 


r ,  < 


L\' 

y.; 


is 

f; 

tv' 


#* 

fr. 

pr. 


/ 

i 

t* 


c 

c 

c 

c 

c 

c- 

c 

c 

c 

c 

c 


c 

.c 

c 

c 

c 

c 


RKC1)  »  4t.rfO 
RK(2)  »  -A7*QP<li 
DO  5  1*3, N 

5  RK<I>  »  A3mqK( 1-2 )-A7NQP( 1-1 ) 

RETURN 

US2  SCALED  FORM  OF  THE  RECURRENCE 

10  A7  *  A7/A1 
A3  «  A3/A1 
RK(1)  «  QPC 1 ) 

RK(2)  *  QP(2)~A7XQP(1) 

DO  15  1  *3,  II  _  _ 

15  RK( I )  *  A3MQKC Z-29-A7HQP( X-l  I J 
RETURN 

USE  UNSCALED  FORM  OF  THE  RECURRENCE 
IF  TYPE  IS  3 

20  RK(1)  «  ZERO 
RK(2)  «  ZERO 
DO  25  1*3. U 
25  RKC I )  *  QK( 1-2) 

RETURN  ‘  ' 

END 


IMSL  ROUTINE  NAME 


ZRPQLO 


COMPUTER 
LATEST  REVISION 
SUBROUTINE  ZRPQI.O 
INTEOER 

DOUBLE  PRECISION 

INTEOcR 

REAL 

DOUBLE  PRECISION 
DOUBLE  PRECISION 

1 
2 


COMMON  /ZRPQLJ/ 

1 

DATA 


IF  (ITYPE.EQ.3)  00 
IF  (ITYPE.E0.2)  00 
A4  ■  RA+U»RB*H«F 
AS  *  C+(U+V*F)*D 
GU  TO  10 
A4  «  (RA+OJXF+H 
AS  »  (F4U)XC+V«D 


-  IBM/ DOUBLE 

-  JANUARY  1,  1978 .  . 

(ITYPE.UU.W) 

SPECIFICATIONS  FOR  AROUMENTS 

I  TYPE 

UU.VV  "  " 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 

N.NN 

ARE.ETA.RMRE 

P(101).QP(101),RK(101>,QK(101)i SVK( 101) 
SR.SI.U.V.RA.RB.C.D, A1.A2.A3. 
A6,A7,E,F,O.H,SZR,,:Z’)RLZR,RLZI, 

A4, A5.B1.B2, Cl, C2.C3.C4, TEMP,  ZERO 
P.0P,RK,QK,SVK,SR.SI,U,V,RA,RB,C.D,A1.A2,A3,AB 
A7,E,F,0.H,SZR,SZI,RLZR.RLZI, ETA, ARE, RMRE.N,NN 
ZERO/O. ODD/ 

COMPUTE  NEH  ESTIMATES  OF  THE 

QUADRATIC  COEFFICIENTS  USINO  THE 
SCALARS  COMPUTED  IN  ZRPQLE 
USE  FORMULAE  APPROPRIATE  TO  5ETTIN0 
OF  TYPE. 

FIRST  EXECUTABLE  STATEMENT 

TO  15 
TO  5 


EVALUATE  NEW  QUADRATIC  COEFFICIENTS. 


00038960 

00038970 

00038980 

00038990 

00039000 

00039010 

00037020 

00039030 

00039040 

00039050 

00039060 

00039070 

00039080 

00039090 

00039100 

00039110 

00039120 

00039130 

00039140 

00039130 

00039160 

00039170 

07939180 

00039190 

00039200 

00039210 

■00039220 

00039230 

00039240 

00039250 

00039260 

00039270 

00039280 

00039290 

00039300 

00039310 

00039320 

00039330 

00039340 

00039350 

00039360 

00039370 

00039380 

,00039390 

00039400 

00039410 

00039420 

00039430 

00039440 

00039450 

00039460 

00039470 

U0039480 

00039490 

00039500 

00039510 

00039520 

00039530 

00039540 

00039550 
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■i 

1 

c 

10  B1  «  -RK(N)/P(NN) 

00039560 

00039570 

C 

02  •  -<RK(N-l)*Bl*P<N))/p<NN>  . _  ....  . 

00039S30 

< 

Cl  *  VMB2MA1 

00039590 

% 

C2  •  B1MA7 

00039600 

* 

CS  *  B1MB1XA5 

00039610 

} 

C4  »  C1-C2-C3 

00039620 

5  • 

TEMP  «  A5*B1»A4-C4 

00039630 

1 

IF  (TEMP. E9. ZERO) 

00  TO  15 

00039640 

UU  »  U-(U*(C3+C2)+V»(B1*A1+B2»A7)>/TEMP 

00039650 

«• 

VV  «  V*<1+C42TEMP) 

00039660 

c 

RETURN 

15  UU  «  ZERO 

IF  TYPE* 3  THE  QUADRATIC  IS  ZEROED 

00039670 

Q00396BD 

• 

00039690 

* 

VV  *  ZERO 

00039700 

RETURN 

00039710 

I 

END 

00039720 

■ 

c 

00039730 

*» 

c 

00039740 

c 

SUBROUTINE  ZRPOLH 

00039750 

■% 

(NN,U,V,P,Q,RA,RB) 

00039760 

*• 

c 

SPECIFICATIONS  FOR  ARGUMENTS 

00039770 

'« 

s 

INTEGER 

NN 

OOD397BO 

DOUBLE  PRECISION 

P(NN),Q(NN),U.V,RA,R8 

00039790 

k 

c 

INTEOER 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 

00039800 

I 

00039810 

•w 

\ 

c 

.  DOUBLE  PRECISION 

C  _ 

DIVIDES  P  BY  THE  QUADRATIC  l.U.V 

00039820 

00039830 

% 

c 

PLACING  THE  QUOTIENT  IN  Q  AND  THE 

00039840 

* 

c 

REMAINDER  IN  A,B 

00039850 

■ 

c 

RB  *  P(  1 ) 

FIRST  EXECUTABLE  STATEMENT 

00039860 

s' 

00039870 

4 

0(1)  «  RB 

00039880 

1 

RA  »  P(2)-U«RB 

00039890 

*# 

0(2)  ■  RA 

00039900 

N 

DO  5  I *3 . NN 

00039910 

% 

C  ■  P(I)-U*RA-VNR8 

00039920 

0(1)  «  C 

00039930 

.*« 

RB  >  RA 

00039940 

RA  »  C 

00039950 

a 

5  CONTINUE 

00039960 

■ 

RETURN 

00039970 

• 

END 

00039980 

c 

00039990 

*9' 

c 

00040000 

c 

00040010 

c 

IMSL  ROUTINE  NAME 

-  ZRPQLI 

00040020 

j! 

.c 

00040030 

■ 

-Q  U  QhuuhO 

c 

00040050 

c 

COMPUTER 

-  IBM/DOUBLE 

00040060 

c 

00040070 

« 

* « 

LATEST  REVISION 

-  JANUARY  1,  197# 

000^0080 

t. 

c 

00040090 

SUBROUTINE  ZRPQLI 

<RA,Bl,C,SR,SI.RLR,RLI) 

SPECIFICATIONS  FOR  ARGUMENTS 

00940100 

'j 

c 

00040110 

■ 

DOUBLE  PRECISION 

RA.B1,C,SR,SI,RLR,RLI 

00040120 

%• 

c 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 

00040130 

•.* 

DOUBLE  PRECISION 

Rt.O.E, ZERO. ONE, TWO 

00040140 

\ 

DATA 

ZERO, ONE»THO/0 .0  DO, 1.000,2. ODD/ 

00040150 

A 

A 

V 

• 
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$ 

5 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


10 


c 

c 


IF  (RA.NE.ZERO)  00  TO  10 
SR  ■  ZERO 

IF  (B1.NE.ZER0)  SR  >  -C/Bl 
RLR  «  ZERO 
SI  »  ZERO  . 

RLI  »  Zt.TO 
oeritOM 

IF  (C.NE.ZERO)  00  TO  13 
SR  «  ZERO 
RLR  «  -Bl/RA 
00  TO  S 


CALCULATE  THE  ZEROS  OF  THE  QUADRATIC 
AMZNX2  ♦  B1KZ  ♦  C.  THE  QUADRATIC 
FORMULA.  MODIFIED  TO  AVOID 
OVERFLOW.  IS  USED  TO  FIND  THE 
LARGER  ZERO  IF  THE  ZEROS  ARE  REAL 
AND  BOTH  ZEROS  ARE  COMPLEX. 

THE  SMALLER  REAL  ZERO  IS  FOUND 
DIRECTLY  FROM  THE  PRODUCT  OF  THE 
ZEROS  C/A 

FIRST  EXECUTABLE  STATEMENT 


IS  RB  «  Bl/TWO 

IF  ( DA8S( RB) . LT . DASS(C) )  00  70  20 
E  ■  ONE-(RA/RB)M(C/RB> 

:  t  DSQRK  DABS(E)  XDAbSCRB) 

00  TO  23 
20  E  *  RA 

IF  (C.L7.ZER0)  S  «  -RA 
E  •  RBHlRB/DABS(C))-E 
D  «  OSQRT(DABSCE) ) xOSQRTI DAIS(C) ) 
23  IF  (E.LT.ZZRO)  GO  TO  JO 


COMPUTE  DISCRIMINANT 
OVERFLOW 


AVOIDING 


IF  (RB.OE.ZERO)  D 
RLR  »  t-RB+DT/RA 


-0 


REAL  ZEROS 


5R 

IF 

GO 


ZERO 
(RLR.NE 
TO  5 


ZERO)  SR  *  <  C/RLR  )/RA 


COMPLEX  CONJUGATE  ZEROS 


30  SR  •  -RB/RA 
RLR  ■  SR 
s;  *  OABSCD/RA) 
RLI  ■  -SI 
RETURN 
END 


SUBROUTINE  LEQ2C  (A.N, IA.B.M, IB. IJOB.WA.WK. IER) 


C0MPLEXX16 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
EQUIVALENCE 


DATA 

DATA 


A(IA,l).B(IB.i).WA(N,l ) .TEMP A, TEMPO, TEMPC 
WK(N)»TA(2),TBC2).TC(2) 

AR,  At .  BR,  F) I  .CR.CI .  OXNORM.  XNORM.  ZERO 
ACC  C  2 ) 

( TA( 1 ) .TEMPA) , ( TBC I) .TEMPO  > . (TCtl ) .TEMPC ) . 
(TA(l)iAR)i(TA(2)iAI).(TB(l),BR>,(TB(2),0I). 
(TCf 1 ).CR),(TC(2),CI) 

ZERO/O. 000/ 

ITMAX/50/ 


00040160 
00040170 
000401S0 
00043190 
00040200 
00040210 
00040220 
00Q4Q2J0 
00040240 
00040230 
0004024  0 
00040270 
00040280 
00040290 
00040300 
00040310 
00040320 
00040330 
00040340 
00040350 
00040340 
00040370 
00040380 
00040390 
00040400 
00040410 
00040420 
00040430 
00040440 
00040450 
00040440 
00040470 
00040440 
00040490 
00040500 
00040510 
00040520 
00040530 
00040540 
00040550 
00040540 
00040570 
00040540 
00040590 
00040600 
00040610 
00040620 
00040630 
0004G640 
00040650 
00040640 
00040670 
0004U640 
00040690 
00040700 
00040710 
00040720 
00040730 
00040740 
00040750 
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IER  *  0 
m  «  Nti 
N2  ■  N+2 

IF  ( I  JOB  .EQ.  2)  00  TO  IS 


FIRST  EXECUTABLE  STATEMENT 


DO  10  I  ■  l.M  UVi  MATR1*  A 

DO  J  J  •  1,N  " - -  - -  - 

.  WA(I.J)  «  A(  I , J) 

5  CONTINUE 

10  CONTINUE  ..  _  _ 

CAU  LE0T1C  CMA.N.N,B,MtIB.l,WKflER)HATRrX  * 

IF  < IER  . NE .  0)  00  TO  9000 
IF  (IJ0S  .EQ.  1)  00  TO  9003 

IS  DO  63  J  -  l.M  SAVE  ™E  RI0HT  MAND  SlDES 

DO  20  I  *  1 , N 

WA(I.Nl)  «  B( I. J) 

20  CONTINUE 

'  OBTAIN  A  SOLUTION 

CALL  LEQT1C(MA»  N,  N.WAC 1 ,N1 ) , 1  .N.2.NK.IER) 

XNORM  «  ZERO  .  C0HFJTE  THE  NORM  OF  .THE  SOLUTION 

DO  23  I  .  I ,  N 

TEMPA  «  HA( I i N1 ) 

23  CONTINUE  "  DMAX1<XN0RM,DABS(AR),DABS(AI)>  . . 

IF  (XNORM  .EQ.  ZERO)  00  TO  <5 

DO  50  ITER  .  l.XTHAX  RE5IDUALS 

DO  40  I  «  1 . N  . .  . . " 

TEMPB  «  8(1. J) 

ACC(l)  >  0.000 
...  ACC ( 2 )  *  0.000 

CALL  VXADD(BR.ACC)  - *  - - 

DO  30  JJ  «  l.N 
TEMPA  =  A ( I ,  J J  ) 

TEMPB  *  WA(JJ.Nl) 

CALL  VXMUL(-AR.r.R.ACC)  ‘ 

«n  -CUl  VXMUL(AI.BX.ACC) 

30  CONTINUE 

CALL  VXSTQ(ACC.CR) 

TEMPB  *  8(1. J)  - 

ACC(l)  *  O.ODO 
ACC(2)  *  O.ODO 
CALL  VXADD(BI.ACC) 

DO  35  JJ  :  l.N 
TEMPA  *  A ( I . J J  ) 

TEMPB  *  NA(JJ.Nl) 

CALL  VXMUL(-AR.B.T.ACC) 

..  „  CALL  VXMUL(-BR.AI.ACC) 

35  CONTINUE 

CALL  VXSTO ( ACC. Cl ) 

„  WAU.N2)  *  TEMPO 

AO  CONTINUE  -  - 

DC.  «  I  .  l.H  UPt»TE  THE  SOtU,1°" 


00040760 
00040770 
00040780 
00040790 
00040800 
00040810 
00040820 
00040830 
0ftft4Q840 
00040850 
00040860 
00040070 
00040S80 
00040090 
00040900 
00040910 
00040920 
03040930 
00040940 
00040950 
00040960 
( 7040970 
W040980 
00040990 
00041000 
00041010 
...  00041020 
00041030 
00041040 
00041050 
...  00041060 
00041070 
00041080 
00041090 
_  00041100 
00041110 
00041120 
00041130 
00041140 
00041150 
00041160 
017041170 
00041180 
00041190 
00041200 
00041210 
00041220 
00041230 
00041240 
00041250 
00041260 
000412^0 
00041280 
00041290 
00041300 
00041310 
00041320 
00041330 
00041340 
00041350 
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non 


•  ^  '.i  iwj  a«  «!'<  ^  rUM  *v  9r  m 


k  \tkf4n*«i*«*ria  uiibta  tkiw»%WM- 


,  ^  „  mJ%  ,  M  9m  m*  ««i  am  *  .  ■  m*u  tv  ir««rw«ruMnt 


,.m(I,N1)  =  WA( I , HI  )+HAC  1 , 112) 

TEMPA  *  WA(I.NZ) 

DXHORM  ■  DMAXHDXNORM#  DABS(AR) , DABS(AD) 


45 

CONTINUE 

IF  (XNORH+DXNORM  .EQ.  XNORM) 

00  TO  55 

50 

CONTINUE 

.  .IER  *  130 

STORE 

THE  SOLUTION 

55 

DO  60  JK  •  l.N 

B(JK.J)  *  A(JK.Nl) 

60 

.  CONTINUE 

IF  (IER  .NE.  0)  00  TO  9000 

65 

CONTINUE 

GO  TO  9005 

9000 

CONTINUE 

.  —  . 

CALL  UERTSTCIER.6HLEQ2C  ) 
9005  RETURN 
END 


C 

C 


C 

C 


C 


c 


c 


5 

10 


15 


SUBROUTINE  LEQT1C 

INTEOER 
C0MPLEXM16 
DOUBLE  PRECISION 

DOUBLE  PRECISION 

C0MPLEXM16 

INTEGER 

EQUIVALENCE  _  . 
DATA 


(A.N.lA.B.M.IB.IJOB.WA.IER) 

SPECIFICATIONS  FOR  ARGUMENTS  .... 

N , I A , M, 1 8 , 1  JOB . I ER 
A( IA>  N) . B( IB,M) 

NA  (  N  ) 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 
P.Q. ZERO, ONE. T(2),RN, BIO 
SUM, TEMP 

I.J. JM1.IM1,K,IMAX,JP1,IH,N1 
(SUM.T(l)) 

ZERO/O, QDQ/.ONE/l. DO/ 

INITIALIZATION 

FIRST  EXECUTABLE  STATEMENT 


IER  «  0  .  . 

IF  ( 1 JOB  .EQ.  2)  GU  TO  75 
RN  »  N 

FIND  EQUILIBRATION  FACTORS 

DO  10  I«l,N 
BIO  *  ZERO 
DO  5  J  *  1 » N 

TEMP  •  ACI.J) 

P  «  CDABS(  TEMP )  ..  . 

IF  (P  .GT.  BIG)  BIO  *  P 
CONTINUE 

IF  (BIG  .EQ.  ZERO)  GO  TO  105 
HA( I )  •  ONE/BIO 
CONTINUE 

L-U  DECOMPOSITION 


DO  70  J  -  l.N 
JM1  *  J-l 

IF  ( JM1  AT.  1)  OO  TO  25 

COMPUTE  U(I.J).  1*1 . J‘l 

00  20  1*1, JM1 
SUM  >  ALI.J) 

IM1  «  I-l 

IF  urn  AT.  1)  00  TO  20 
DO  15  K* 1 , I  Ml 

SUiM  *  SUM-AC  I,K)MA(K>  J) 

CONTINUE 


00041 360 

00041570 

00041380 

00041390 

00041400 

G0041410 

00041420 

00041430 

0CC41440 

00041450 

00041460 

00041470 

00041480 

00041490 

00041500 

00041510 

00041520 

00041530 

00041540 

00041550 

00041560 

00041570 

00041580 

00041590 

00041600 

00041610 

00041620 

00041630 

00041640 

00041650 

00041660 

00041670 

00041680 

00041690 

00041700 

00041710 

00041720 

00041730 

00041740 

00041750 

00041760 

00041770 

00041780 

00041790 

00041800 

00041610 

00041820 

00041830 

00041840 

00041850 

00041860 

00041870 

00041880 

00041890 

00041900 

00041910 

OU041920 

00041930 

0004)940 

00041950 


180 


20 

25. 


35 

40 


45 


ACi.J)  »  SUM 
CONTINUE 

P  »  ZERO  _ 

"  COMPUTE  UCJ.J)  AND  LCI.J). 

DO  45  I * J » N 
SUM  •  ACI.J) 

....  IP  ( JM1  .LT.  1)  00  TO  40 . .  . . . 

00  35  K*1 » JM1 

SUM  «  SUM-Af I , K)*ACK»  J ) 

CONTINUE 

..  ACI.J)  •  SUM  . . . 

n  ••  MAC  I )  MCDABS  (  SUM) 

IP  (P  .QE.  0)  00  TO  45 

P  ■  q 

I  MAX  «  I  _ _  _  _ 

CONTINUE 

TEST  FOR  ALGORITHMIC  SINGULARITY 


Q  •  RN+P 

IP  (Q  .EQ.  RN)  GO  TO  105 
IF  (J  .EQ.  IMAX)  00  TO  40 


SO 

60 


DO  50  K*  1 ,  N 

TEMP  •  AC IMAX, K> 

AC IMAX, K )  >  A C J » K J 
ACJ.K)  «  TEMP 
CONTINUE 

MACIMAX)  -  MAC.')  _ 

MAC J  >  «  IMAX 
JP1  «  JM 

IF  CJP1  .QT.  N)  QO  TO  70 


INTERCHANOE  ROMS  J  AND  IMAX 


65 


TEMP  »  ACJ.J) 

DO  65  I  «  JP1.N 

AC  1 1 J  )  «  ACI.J l/TEMP 
CONTINUE  ..  . 


DIVIDE _IY  .PIVOT  EIEMENT_.UCJ,J) 


70  CONTINUE 
75  IF  C I JOB 
DO  103  K 


. EQ.  1)  00  TO  9005 
■  l.M 


SOLVE  UX  «  Y  FOR  X 


BO 


as 

as 

90 


IM  ■  0 

DO  90  I  »  1 ,N 
IMAX  »  MACD 

SUM  ■  BC1MAX.K)  _  ..  .. 

BCIMAX.K)  *  BCI.K) 

IF  <IW  . EQ .  0)  00  TO  85 

IMl  *  1-1 

DO  60  J  *  IN.  IMl 

S'JM  *  SUM-ACI.  J  >MBC  J  ,  K) 

CONTINUE 
00  TO  88 

IF  CTCD  .HE.  ZERO  .OR.  TC2)  ,NE.  ZERO)  IH  ■  I 
BCI.K)  *  SUM 
CONTINUE 


N1  »  NM 
DO  100  IM  «  I . N 
I  3  Nl-IW 
JPl  *  IM 
SUM  «  BCI.K) 
IF  CJP1  ,GT. 


SOLVE  LY  «  B  FOR  Y 


N)  GO  TO  98 


00041960 
00041970 
00041980 
...,00041990 
00042C00 
00042010 
..  00042020 

00042050 
00042040 
00042050 
00042060 
00042070 
00042080 
00042090 
_  00042100 

00042110 
00042120 
00042130 
00042140 
00042150 
00042160 
P004217D 
00042180 
00042190 
00042200 
00042210 
00042220 
00042250 
00042240 
00042250 
00042260 
00042270 
00042280 
00042290 
OOC423DO 
00042310 
00042320 
00042330 
00042340 

.  00042350 

OCO4Z360 

00042370 

00042380 

. *  00042390 

00042400 

00042410 

00042420 

00042430 

00042440 

00042450 

00042460 

00042470 

00042480 

00042490 

00042500 

00042510 

00042520 

00042530 

00042540 

00042550 


I 


I 
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IXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXKXXXXXXXXKXXXXKXXXXXKKXXXXXM  0000 QO 10 

IXXXXXXXXXXXXXxxxxXXXXXXXXXXXXXtfXKXXXXXXXXXXXXXKXXXXXKXXXKXXXXXXX  00000020 

(  XXX  00000030 

(  PROGRAM  SAMCJ  XXX  00000040 

l  XXX  00000050 

<  STRENGTH  ANALYSIS  OF  MULTI-FASTENER  COMPOSITE  JOINTS  XXX  00000060 
i  XXX  00000070 

tXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXKMXXXXXXXXXXXXMMXXXXXXXXXXMXXXMXXX  00000080 

(XXXXXKXxXXXXXXXXXXXXXXKXXXXXXXXX  <XXXXXMXXXXXXttXXXXXXXXXXNXXXMXXX  00000090 

00000100 

SAMCJ  COMPUTES  T-E  uJAO  DISTRIBUTION  AMONO  FASTENERS  IN  00000110 

A  MUl T I  -FASTENED  COMPOSITE/  METALLIC  JOINT,  AND  PREDICTS  00000120 

THE  JOINT  FAILURE  ^,\D.  FAILURE  MODE,  AND  FAILURE  LOCATION.  00000130 

THE  FASTENER  LOAD  Ti S r RI BUT  I  ON  13  DETERMINED  BY  A  00000140 

FINITE  El  EMEIIT  METHOD  WITH  THE  USE  OF  SPECIAL  FINITE  000001  50 

FLEMENTS.  THE  SUBSEQUENT  FAIIU3-  ANALYSIS  IS  BASED  00000160 

ON  AN  AVERAGE  STRESS  FAILURE  Cr. TERION  00000170 

00000180 

IMPLICIT  REAL  »4( A-H  02)  00000190 

DIMENSION  NPLYt  2) . WASHDI 2 > , STM< 3 )  00000200 

DIMENSION  NEF(  2 )  •  Nt.H(  2  >  •  N0HI2 )  ,NPl ( 2)  00000210 

01  MENS'  ON  NOEK  2 . 1  0  . 1  0  ) , NGLHt 2.10,10). MOOHI 2. 10. 10 )  00000220 

DIMENSION  NUPL <2.10.10). NUMEFI 2, 10), NUMLHC 2, 10)  00000230 

DIMENSION  NCMOH! 2,10), NUMPLI 2 , 10)  09000240 

DIMENSION  NEL0RDC2.24.25),NELDIS(50,5,2)  00000250 

DIMENSION  ELlOADr50,2)i P5MXI f0,4),N2ER0(S0>, NflDARY (25)  00000260 

DIMENSION  XOUH6  00  )  .'rOUTI  600  ), PLYKI 100) ,  iARKC  100),  B.TRUC  100)  00000270 

DIMENSION  ELSTFFf SO. 10,10), ELSTSS<50, 50,10)  00000280 

DIMENSION  G35X( 20 )  .GoSW(2Q),ANR(200) >RHS(200),PBC(2QD)  00000290 

DIMENSION  GL3TFF(2(JO,200),ASOM(200.200) .ANR2I200)  00000300 

DIMENSION  RDSTFFI 50 , 2 )  i WOHTI 500)>ERO(50)  00000310 

DIMENSION  NELPLS12.50).NELPT(2.50,50)  00000320 

DIMENSION  ELTHKI 50 ) . NELCONI 50 , 6 ) , NCLCNAI 50 , fc )  00000330 

DIMENSION  GCUORD(150,2),PLYTHK(2*25)> NELFASI 25*3)  OOOOC340 

DIMENSION  NELF:A(25.S)  0000035C 

DIMENSION  ELWDTHI S'O  ,NGRID(150),LYPN(50)  00000360 

DIMENSION  F3CDC50, 3 ) , I1EL TYP<  50 )  00000370 

DIMENSION  MTL(3,IS).R(2)  00000380 

DIMENSION  ANCKI 5.2), NUMPLYI 2 ) , CM( 2)  00000390 

DIMENSION  ANO( 5.2), IPL Y( 100.2)  00000400 

DIMENSION  Ei(2),C2(2),U12(2),V12C2),V21C2),HC2)  00000410 

DIMENSION  STuuilv.x-J  00000420 

DIMENSION  XC(5),YC(5>  00000430 

DIMENSION  AUNT ( 2 ) , AU6RC2 ) , AOSOt 2)  00000440 

DIMENSION  EL  FAIL ( 50 ■ 3 )  00000450 

COMMON/ AOV/AONT ■ Ai>CR,  AOSO  00  0  0046  0 

Ci.'MMtjN/CSXU/i/.SX.i.  ,SII  00000470 

COtlMtm/NPLS/NELPl ,  LT  PN  00000430 

C'JMMON/XCYC/XC.YC  000004911 

CUMMON/NCN/NCI CON, NELCNA.NF. 01 S  00000500 

COMMON/ STM i /STM. CM  00000510 

COMMON/ SMX'PSMX  00000520 

CCMMON/STN/jTUL  T  00000530 

COMMON/ LAMP/ ELF All  00000540 

CQMMON/FS" / FASC, FA SV, FASO  00000550 


uouuo 


COMMON/RT/R 
COMMON/MFS/F3CD 
COMMON/ NT P/N El TYP 

COMMON/ NPT/NOPT 2, N0PT6 , N0PT7  *N0PTB 

C0MM0N/M0D/E1 , E2.G12. V12, V21 

COMMON.'lYP/NPLY,NUMPLY,ANG,IPLY 

COMMON/ El P/ AX i 8X,  NOUT .NST5 

COMMON/FCC/ELMDTH, ELTHK, EllOAO 

COMMON/NCST/NCASE, NTYPE 

COMMON/ D ISP/ AN R 2 

COMMON/ P 8 8/PLYK , 8ARX , BAKU 

COMMON/ELS/ELSTFF,  ELSTSS 

COMMON/CMT2/XOUT,YOUT 

COMMON/SER/MT.NB 

DATA  Y/'Y'/ 

DATA  CMC/'C'/ 


READ  IN  REQUIRED  INPUT  DATA 


{SINGLE  LAP  SHEAR)',/, 
(DOUBLE  LAP  SHEAR)’, /> 


' ,/, 


WRITE(6,S76) 

876  FORMAT (/// , 10X, '  PROGRAM  SAMCJ',//, 

*•  PROORAM  SAMCJ  PREDICTS  THE  FAILURE  LOAD,  FAILURE  ',/, 
«'  LOCATION,  AMD  FAILURE  MODE  IN  MULTIPLY-FASTENED,',/, 
*•  SINGLE  OR  DOUBLE  LAP  COMPOSITE  SHEAR  JOINTS.  './/, 
u •  THE  ANALYSIS  ASSUMES  THAT  INPUT  PARAMETERS  ARE  ',/, 

H •  SPECIFIED  IN  ENGLISH  UNITS  -  LENGTH  IN  INCHES,',/, 

«•  MODULI  AND  STRENGTHS  IN  P3I.  './/> 

WRITE(6 , 900 ) 

900  FORMATC  ENTER' 

*•  1  FOR  SLS 

K '  2  FOR  DLS 

READ(S.N)  NSDLS 
MRITEC6  >  911 ) 

911  FORMATC  ENTER' 

a*  1  TOR  STATIC  TENSION 

«•  2  FOR  STATIC  COMPRESSION',/) 

READC  5 . * •  ITNCM 
106  FORMATCAU 
380  CONTINUE 

DO  300  X-l.2 
IF(K.EQ.l)  HRITEt  6,912) 

IF(K . EQ . 2)  HRITEt 6,913) 

912  FORMATC  IS  THE  TOP  PLATE  A  COMPOSITE  OR  A  METALT') 

913  FORMATC  IS  THE  BOTTOM  PLATE  A  COMPOSITE  OR  A  METALT') 
HRITEt  6 ,919) 

914  FORMATC  ENTER  C  OR  M  IN  THE  FIRST  FIELD') 

REACC  3,106 )  CMU) 

HRITEt  6 , 203 )  __  . 

203  FORMATC  INPUT  MATERIAL  DESCRIPTION  OF  THIS  PLATE  ',/, 

»'  EX'  ASA/3501-6 ' ) 

READC 5 , 204 )  CMTl(K.I), 1*1,15) 

204  FORMAT! 15A4 ) 

300  CONTINUE 

IF(CM(1).NE>  CMC ,0R.CM(2).NE. CMC )  WRITEC6,754> 

754  FORMATC,'  NOTE'  FOR  COMPUTATIONAL  PURPOSES  A  ',/, 
a'  METALLIC  PLATE  IS  MODELED  AS  A  30  PLY  ',/, 
a '  LAMINATE  OF  0  DEOREE  PLIES  WITH  ISOTROPIC',/, 

*'  MATERT f '  PROPERTIES',/) 


00000560 

00000570 

000005SQ 

00000590 

00000600 

00000610 

00000620 

0000063C 

00000640 

00000650 

00000660 

00000670 

00000680 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

00000780 

00000790 

00000800 

00000810 

00000820 

00000830 

00000840 

000008S0 

00000860 

00000870 

00000880 

00000890 

00000900 

00000910 

00000920 

00000930 

00000960 

00000950 

00000960 

00000970 

00000980 

00000990 

00001000 

00001010 

00001020 

00001030 

00001040 

00001050 

00001060 

00001070 

00001080 

00001090 

00001100 

00001110 

00001120 

00001130 

00001140 

00001150 


S 
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DO  306  K  s  1 , 2 
IFIK.EQ.l)  WRITE!6*  216 ) 

IFCK.EQ.2)  WRITE!* , 555 ) 

216  FORMAT! '  INPUT  THE  ENOINEERINO  PROPERTIES  OF  THE  TOP  PLATE' ) 

553  FORMAT!  •  INPUT  THE  ENOINEERINO  PROPERTIES  OF  THE  BOTTOM  PLATE') 

IFICMOO.EQ.CMC)  GO  TO  85 
WRITE  1 6  r  9 5 ) 

93  FORMAT! •  INPUT  YOUNGS  MODULUS  AND  POISSONS  RATIO') 

READ!  5.0  E1!K)  , V12!K) 

E2!K)>E1(K) 

O12(K)*El!K)/!2.0DQRV12!K)) 

V21!K)*V12(K)R£2!K)/E1!K) 

00  TO  306 
85  CONTINUE 
WRITE!6.217) 

217  FORMAT!'  INPUT  YOUNOS  MODULI,  El  AND  E2') 

READ!  5,  *)  ElOO ,  E2(  K) 

WRITE(6  >213 ) 

218  FORMAT!'  INPUT  THE  SHEAR  MODULUS  AND  MAJOR  POISSONS  RATIO') 
READ!  5 ,  R  >  0 1  ?. ! K) . 7 1 2 !  K ) 

V21(K)*V12(X)RE2!K)/E1!K) 

306  CONTINUE 

307  CONTINUE 
290  CONTINUE 

DO  303  K>1,2 

IF! CM! K ) . EQ .CMC)  CQ  TO  65 
NUMPLY! K )  ■  1 
00  TO  303 
45  CONTINUE 

IFIK.EQ.I)  WRITEC6.207) 

IFOC.Eg.2)  WRITE! 6 .702) 

207  FORMAT! •  INPUT  TOTAL  NUMBER  OF  DISTINCT  PLY  •,/, 

»*  ORIENTATIONS  IN  THE  TOP  PLATE') 

702  FORMAT! '  INPUT  TOTAL  NUMBER  OF  DISTINCT  PLY  ',/, 

R '  ORIENTATIONS  IN  THE  BOTTOM  PLATE') 

READ!  5 .  R )  NUMPLY!K) 

303  CONTINUE 

DO  209  K*1 . 2 

I F! CM! K ) . EQ . CMC )  GO  TO  55 
ANG!  1 .0  =  0  . 

00  TO  209 
55  CONTINUE 
N-NUMPLY(K) 

DO  209  L*1.N 
HRITE(6.206)  L 

206  FORMAT!'  INPUT  ORIENTATION  OF  PLY  TYPE  NO', 13) 

READ! 5 . X )  ANG! L « K ) 

209  CONTINUE 

WRITE16 , 1823) 

1823  FORMAT!/,'  THICHKNESS  VARIATIONS  MAY  BE  APPROXIMATED',/, 

*'  BY  ASSIONINO  DIFFERENT  LAYUPS  TO  ELEMENTS',/, 

R'  IN  A  COMPOSITE  PLATE  OR  BY  SPECIFYING  DIFFERENT',/, 

R '  THICHKNESSES  TO  ELEMENTS  IN  A  METALLIC  PLATE',/) 
IFIMSDtS.EO.2)  WRITE!6 ,789) 

789  FORMAT!/,'  NOTE'  FOR  THE  DOUBLE  LAP  SHEAR  CASE,  FOR',/, 

R'  THE  B0T10M  PLATE,  ENTER  ONLY  HALF  FOR  THE  './, 

R 1  LAYUP  FOR  A  COMPOSIT  OR  HALF  THE  THICKNESS  ',/, 

R '  FOR  A  METALLIC',/) 

DO  811  1*1,2 

I F! CM! I ) . *9 . CMC)  00  TO  891 


00001160 
00001170 
00001180 
00001190 
00001200 
C030U10 
00001220 
CC001230 
00001240 
00001230 
00001260 
00001270 
00001280 
00001290 
00001300 
00001310 
00001320 
00001330 
00001340 
00  CO  1 350 
00001360 
00001370 
00001380 
00001390 
00001430 
03001410 
00001420 
00001430 
00001440 
00001430 
00001460 
00001470 
00001480 
00001490 
00001500 
00001510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
03001580 
C0001590 
00001600 
00001610 
00001620 
00001630 
00001640 
00001650 
00001660 
00001670 
00091680 
00001690 
00001700 
00001710 
00001720 
00001730 
00001740 
00001750 
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Of  J 


NELPLStI , 1 ) »30 
DO  892  I1I«1.30 
892  NELPT(I.1.XIX)"1 
CO  TO  811 
891  CONTINUE 

IFtI.EQ.X)  WRlTEt4,812) 

I Ft  I . EQ . 2)  WR1TEC6.81 3) 

812  FORMAT",  *  ENTER  NUMBER  OF  DIFFERENT  LAYUPS  IN  THE  ',/, 

A  *  TOP  PLATE' > 

813  FORMATt/','  ENTER  NUMBER  OF  DIFFERENT  LAYUPS  IN  THE  './, 

K*  BOTTOM  PLATE') 

REAOt 5,  K )  NL 
DO  8 14  J*1 , NL 
WRITEt6.B13)  J 

815  FORMATt'  ENTER  NUMBER  OF  PLIES  IN  LAYUP  NO  MU) 

READtS.K)  NELPLStl.J) 

WRITEC6.816) 

814  FORMATt*  ENTER  PLY  THICKNESS  FOR  THIS  LAYUP') 

READtS.K)  PLYTHKtl, J ) 

NN«NELPLStI,J) 

WRITEt4.818) 

818  FORMATt'  ENTER  SEOUENCE  OF  PLY  TYPES  FROM  TOP  TO  BOTTOM') 
DO  817  K"1,NN 
READtS.K)  NELPTtl.J.K) 

817  CONTINUE 
814  CONTINUE 
811  CONTINUE 

HRITE(6 , 8SS) 

83S  FORMATt/'  FASTENER  DESCRIPTION",/) 

WRITE16.230) 

230  FORMATt*  INPUT  MATERIAL  DESCRIPTION  FOR  FASTENER') 
READtS.231)  tMTL (3. I ) , 1*1 , 13) 

231  FORMATt 13A4) 

WRITEt4.232) 

232  FORMAT"  INPUT  YOUNGS  MODULUS  AND  POISSONS  RATIO  FOR',/, 
k*  THE  FASTENER') 

READtS.K)  FASE.FASV 
WRITEf 6 . 2S3) 

253  FORMAT"  INPUT  THE  DIAMETER  OF  THE  FASTENER') 

READC5.K)  FASO 
WRITE(6.888) 

888  FORMATt/.'  FASTENER  TYPE  './, 

k'  ENTER'  1  FOR  PROTRUDING  HEAD  './, 

K'  2  FOR  COUNTERSUNK  HEAD') 

READtS.K)  NFTYP 
Rt 1 ) *1 . 0D10 
Rt2)*l .0010 

.  IFt NFTYP. Eg. 1)  00  TO  340 

WRITEC4.889) 

889  FORMATt/,'  ENTER  PLATE  WHICH  CONTAINS  THE  COUNTERSUNK',/, 
K*  HE/D  tOPPOSITE  PLATE  ASSUMES  THE  NUT  HEAD)  ',//, 

k'  ENTER'  1  FOR  TOP  PLATE  ',/, 

K'  2  FOR  BOTTOM  PLATE  ') 

READtS.K)  N 
R(N)*0 .000 
.  340  CONTINUE 

WRITEI6.477 ) 

477  FORMATt/,'  GRID  LAYOUT",/) 

INPUT  ORnS.  ELEMENT  CONNECTIVITY  AND  PROPERTIES 


00001740 

00001770 

00001780 

00001790 

00001800 

00001810 

00001820 

00001830 

00001840 

000018SQ 

00001340 

00001870 

00001880 

00001890 

00001900 

00001910 

00001920 

00001930 

00001940 

00001930 

00001940 

00001970 

00001980 

00001990 

00002000 

00002010 

00002020 

00002030 

00002040 

00002030 

00002040 

00002070 

00002J80 

00002090 

00002100 

00002110 

00002120 

00002130 

00002140 

00002150 

00002140 

00002170 

00002180 

00002190 

00002200 

00002210 

00002220 

00002230 

00002P40 

00002230 

00002240 

00002270 

00002230 

00002290 

00002300 

00002310 

00002320 

00002330 

OOQC2340 

00002350 
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(inn  ooo 


TOP  PLATE 
WRITEt6 ,689 ) 

689  FORMATt'  ENTER  NUMBER  OF  GRIDS  IN  TOP  PLATE') 
READCS.M)  NGP1 
HRXTEC6.571)  NOP1 

371  FORMATt/,'  ENTER  Ml,'  GRID  POINTS 

»'  •#/» 

*'  FORMAT i  ORID  ID.  X  AND  Y  COORDINATES  •) 

DO  603  1*1 , NGP1 

READ(S.n)  NGRIOt  I )  .GCOORDd, 1 ) iOCOORD(1.2) 

603  CONTINUE 

BOTTOM  PLATE 

WRITEUPS) 

683  FORMAT ( '  ENTER  NUMBER  OF  GRIDS  IN  BOTTOM  PLATE' > 
READC5,m  N0P2 
I.OTOT«NGP1*NGP2 
WRITEt  6 , 37 1 )  NOP2 
MP1*NQP1*1 
DO  606  I *NP1 > NOTOT 

REAOC.M)  NORIDCI ) >OCOORDd.  1 ) , OCOORDt Z.2) 

606  CONTINUE 

WRITEt6  >883) 

883  FORMATt/ , '  ELEMENT  DESCRIPTION* ' ,/) 

ViRITEC  6  •  399  > 

399  FORMATt/,' 


PLANAR  ELEMENTS  ARC  NUMBERED 
CLOCKWISE  AS  SHOWN* 

N2  N3 

N3 

N1  N6 


ELEMENT  TYPES  ARE  DESIGNATED  AS  FOLLOWS' 

6  NODE  PLAIN  CLEMENT  TYPE  NO.  1 

5  NODE  LOADED  HOLE  ELEMENT  TYPE  NO.  2 

6  NODE  02  EN  HOLE  ELEMENT  TYPE  NO.  3 


(MOTE*  ENTER  N5*Q  FOR  FOUR  NODE  ELEMENTS) 

WR  ITEt  6 , 191 ) 

191  FORMATt'  ENTER  NUMBER  OF  ELEMENTS  IN  TOP  PLATE') 
READtS.U  NEL1 
DO  676  I-1.NEL1 
WRIT  Et  6 , 388 )  I 

388  FORMATt'  FOR  ELEMENT  NO', IS,/, 

*•  ENTER  *  ELEMENT  ID, HI ,N2,N3,N6, N5, ELEMENT  TYPE') 
READtS.K)  t  NELCONt  I,J),J*1,6),  NELTYPt  I ) 

DO  591  IL«2,6 
IC«0 

NELCNAt 1 , 1 )*NELCON(  1,1) 

DO  592  KL  *  1 . HDP1 

1  Ft NELCONt I. ID . EO.HGRIDtKL))  IC»1 
1  Ft NELCONt I, ID . EQ . NGRIDt KL > >  NELCNAt I , IL ) *KL 
IF(IC.EQ.l)  00  TO  591 
592  CONTINUE 
591  CONTINUE 


,/. 
,/» 
,/, 

,/. 

,/, 
,/, 
./. 
/, 
./. 
',/> 


00002360 

00002370 

00002380 

00002390 

00002600 

00002610 

00002620 

00002630 

00002660 

00002650 

00002660 

00002670 

0000268 

00002690 

00002900 

00002910 

00002920 

00002530 

00002560 

00002550 

00002960 

00002570 

00002980 

00002990 

00002600 

00002610 

00002620 

00002530 

00002660 

00002690 

00002660 

00002670 

00002680 

00002690 

00002700 

00002710 

00002720 

00002730 

00002760 

00002750 

00002740 

00002779 

00002780 

00002790 

00002800 

00002810 

00002820 

00002830 

00002860 

00002850 

00002860 

00002870 

00002880 

00002890 

Q3002900 

00002910 

000112920 

00002930 

00002960 

00002950 
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I F < CMC  1)  .  EQ.CMC)  CO  TO  627 
IF!NELTYP!I).NE.l)  00  TO  721 
WRITE!6,1721) 

1721  FORMAT! •  ENTER  ELEMENT  THICKNESS*) 

READ'S, X)  ATH 

721  IFINELTYP! X )  .NE.2)  00  TO  722 
WRITE!6,723) 

723  FORMAT ( •  ENTER  ELEMENT  THICKNESS*) 

READ! 5 , X)  ATH 

FSCD!  1,1)  ■OCOORS(NELCNA(  X  ,0,1) 

FSCOC  X  ,  2 )  *GCOORD( NELCNA! I  *  6  ) ,  2) 

FSCD!I,3)»FA$D/2.0DO 

722  IF(NELTYPCI).NC.3)  0 C  TO  724 
WRITE(6.723) 

725  FORMAT! •  ENTER  CLEMENT  THICKNESS,  X  AND  Y  COORDINATES',/, 
X*  OP  OPEN  HOLE  AND  HOLE  RADIUS') 

READ! 5 , X)  aTH,<FSCD(X,J)..J*1,S) 

724  ELTHK! 1)“ ATH/ 30 . ODO 
PLYTHK(1, 1)*ATH/30.000 
LYPN( I ) «1 

GO  TO  474 
<27  CONTINUE 

IPCNELTYP! X ) .NE . 1 )  00  TO  726 
WRITE!6.727) 

727  FORMAT! •  ENTER  ELEMENT  LAYUP  NO') 

READ'S, X)  IYPN!I) 

726  IF!NELTYP!I) .NE.2)  00  "0  728 
HRXTE!6,729) 

729  FORMAT!*  ENTER  ELEMENT  LAYUP  NO') 

READ! 3, K)  LYPN! I ) 

FSCD!  1,1)  *0000X0!  NELCNA!  1 .0,1) 

FSCD! X , 2) "QCOORD! NELCNA! I , & ) ,2) 

FSCD! X , 3)*FASD/2 . ODO 

728  IF! NELTYP! X ) .NE. 3)  00  TO  730 
NRITE! i ,731 ) 

731  FORMAT!'  ENTER  ELEMENT  LAYUP  NUMBER,  X  AND  Y  ',/. 
x'  COORDINATES  OF  THE  OPEN  HOLE  AND  THE  HOLE',/, 
x<  RADIUS') 

READ! S.x)  LYPN! I ) , ! FSCD! X , J ) , J*1 , 3) 

730  ELTHK! I)«PLYTHK!1, LYPN! X ) ) 

474  CONTINUE 

WRITE(6 ,688 ) 

686  FORMAT!/,'  ENTER  NUMBER  OF  ELEMENTS  IN  BOTTOM  PLATE  ') 
READ! 5>x)  NEL2 
NELT0T»NEL1+NEL2 
HP1*NEL1+1 
DO  611  I*NP1 , NELTOT 
WRITEI6.800)  I 

BOO  FORMAT! •  FOR  ELEMENT  NO', IS, 

X'  ENTER'  ELEMENT  ID, N1,N2,N3,N4,N5. ELEMENT  TYPE') 

READ!  S.x)  (NELCONU,  J).J»l,<), NELTYP! I) 

DO  593  1L*2.6 
IC'O 

NELCNA! X , 1 )*NELCON!  1,1) 

NXN*N0P1+1 
DO  594  KL*NXN,NOTOT 
IF!  N  EL  CON !  I ,  XL ) .  EQ ,  NORID!  KL ) )  IC1 
I F( NELCON! I , XL ) . EQ . N0R1DIKL ) )  NELCNA! I, IL)»Kl 
IF(IC.EO.l)  00  TO  393 
594  CONTINUE 


00002960 

00002970 

00002980 

00002990 

00003000 

00003010 

00003020 

00003030 

00003940 

00003030 

00003060 

00003070 

00003080 

00003090 

00003100 

00003110 

00003120 

00003130 

0000.3140 

00003130 

00003160 

00001170 

0003180 

00003190 

00003200 

00003210 

00003220 

00003230 

00003240 

00003250 

00003260 

00003270 

00003280 

00003290 

00003300 

00003310 

00003320 

00003330 

00003340 

00003350 

00003360 

00003370 

00003380 

00003390 

00003400 

00003410 

00003420 

00003430 

00003440 

00003450 

00003460 

00003470 

00003480 

00003490 

00003500 

00003510 

00003520 

00003530 

00003540 

00003550 
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593  CONTINUE 

I F< CMC 2 )  EQ.CMC)  00  TO  927 
IF(MELTYPCI) .NE.l)  00  TO  921 
WRITEC6 ■ 1921 ) 

1921  FORMAT! •  ENTER  ELEMENT  THICKNESS') 

READC5.X)  ATH 

921  IF(NELTYP(I).NE.2)  00  TO  922 
WRITEC4.1923) 

1923  FORMAT! '  ENTER  ELEMENT  THICKNESS') 

READ(S,X)  ATH  . . 

FSCDC 1,1) *OCOORD( NELCNA  C 1 , 6 ) , 1 ) 

F5CDC 1,2) -OCOORD! NELCNA! I, 4), 2) 

FSCD(I,3)«FASD/2.0D0 

WRITE! 4 . 3443)  I , NELCNA! 1,6), FSCO! 1.1), FSCO! 1,2) 

3443  FORMAT!'  C  I  NELCNA  FSCD12' , IS >2X, 5!D9 , 3 , 2X) ) 

922  IF!NELTYP!I) .NE.3)  GO  TO  924 
WRITEC6  925) 

925  FORMAT!'  ENTER  ELEMENT  THICKNESS,  X  AND  Y  COORDINATES', 
X*  OF  OPEN  HOLE  AND  HOLE  RADIUS') 

READ! 5 , x )  ATH.!FSCD!i.J).J»l,3) 

924  ELTHK!I)*ATH/30.0D0 

PLYTHK! 2,1) *ATM/ !0 . ODO 
L YPN! I ) *  1 
00  TO  611 

927  CONTINUE 

IF!NELTYP!I).NE.l)  00  TO  926 
WRITE! 6 , 1927 ) 

1927  FORMAT!'  ENTER  ELEMENT  LAYUP  NO') 

READ! 5, X )  LYPNC1) 

926  IFINELTYPCI) .NE.2)  00  T9  928 
WRITEC6 , 929 ) 

929  FORMAT!'  ENTER  ELEMENT  LAYUP  NO') 

READC5.X)  LYPN(I) 

FSCD! 1,1) ■OCOORD!  NELCNA! 1 .6) > 1) 

FSCDC 1.2) «OCOORDC NELCNA!  1 , 6 ) ,  2) 

FSCDCI,3)«FASD/2.0D0 

928  IF(NELTYP!I) , NL.3)  00  TO  930 
WRITE! 6 , 931 ) 

931  FORMAT!'  ENTER  ELEMENT  LAYUP  NUMBER,  X  AND  Y 
S'  COORDINATES  OF  THE  OPEN  HOLE  AND  THE  HOLE' ,/» 

X*  RADIUS') 

READ! 3.x;  l.YPNCI),  tFSCDII.J),  J«l,3) 

9  30  El.  THK!I)*PLYTHK(2,LYPN!I)) 

611  CONTINUE 

1741  FORMAT!/.'  FASTENERS  ARE  MODELED  BY  EFFECTIVE 
»•  FASTENER  ELEMENTS  WHICH  PROVIDE  THE  ',/. 

«•  ELASTIC  LINK  BETWEEN  THE  TCP  AND 
X*  BOTTOM  PLATES'./) 

WRITE! 3, 1711) 

1711  FORMAT! •  ENTER  NUMBER  OF  FASTENERS  IN  JOINT  ') 

READ! 3.x)  HUMF 


WRITEC6. , 16 ) 

716  FORMAT!/,' 

M  • 

»'  EFFECTIVE  FASTENER  ELEMENTS  ARE 
X*  NUMBERED  AS  SHOWN ■ 

X '  N1  ! TOP  PLATE) 


',/, 

',/, 

',/, 


N2  ! BOTTOM  PLATE) 


00QQ3S60 

0000357  0 

00003580 

00003590 

00003400 

00003410 

00003420 

00003430 

00003640 

00003450 

0)003460 

00003670 

00003680 

09003690 

(0003700 

00003710 

00003720 

00003730 

00003740 

00003750 

00003760 

00003770 

00003780 

00003790 

00003800 

00003810 

00003820 

00003830 

00t03840 

00003890 

00003860 

00003870 

00003880 

00003890 

00003900 

00003910 

00003920 

00003930 

00003940 

00003950 

00003960 

00003970 

00003980 

00003990 

00004000 

00004010 

00004020 

00004030 

00004040 

00004050 

00004060 

00004070 

00C040SD 

00004090 

00004100 

00004110 

00004120 

00004130 

00004140 

00004150 
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*•  *./, 

M *  WHERE  N1  AND  N2  CORRESPOND  TO  THE  CENTRAL*,/, 

*•  NODES  IN  LOADED  HOLE  ELEMENTS  *,//» 

*•  FORMAT!  ELEMENT  ID,  NI,  N2  *) 

DO  717  1*1 , NUMF 
WRITEI6 ,711 )  I 

711  FORMATS  ENTER  ELEMENT  NO*, 15) 

READ<  5 . X )  (NELFASC I «  J  ) , J*1 • 3) 

717  CONTINUE 

DETERMINE  GRID  STORAGE  LOCATIONS  FOR 
ELEMENT  NUDES 

DO  612  I*1,N£L1 

N*6 

IFINELTYPd ) .NE.2)  H*5 
NELCNA( I,l)*NELCON(t,l) 

DO  613  J *2, N 
IC-O 

DO  6  1 A  K*l.NOPl 

IF'NEI.  C0N(I,J).E9.  NCR  I  D<  K)  )  1C*1 
1 1'!  NEICONI I ,  J  > .  EQ  ,  NOR  I  POO )  NELCNAd,  J)*K 
IF(  IC.E0.1)  00  TO  613 
614  CONTINUE 
613  CONTINUE 
612  CONTINUE 
NPl*NELltl 
DO  395  I *NP1 » NELTOT 
N>6 

IFINELTYPd)  .NE.2)  N«5 
NELCIIAd,  l)*NELCONd,I> 

DO  616  J *2, N 
IOO 

NIH*N0P1+1 
DO  617  MNIN.NOTOr 
IF(NELCONd>  J)  .  EQ.NORIDOO)  i CM 
1  F( MELCONC I ,  J ) ,  E9  .  NORI  D(  K ) )  NELCNAd,  J)>K 
TF(IC.EO.l)  CO  TO  616 
617  CONTINUE 
616  CONTINUE 
395  CONTINUE 

DO  741  7*1, NUMF 
N  *  2 

NEl FSAC 1 , 1 )*NELFAS( 1 , 1 ) 

DO  242  J«1,N 

:c«o 

00  243  K * l , NOTOT 

IF(NELFASd.J*l).FO.NORIO(K))  IC«1 
IKINELFASd,  JU>.  LO  .  NORID(K)  )  NELFSAd,  J+1)«K 
IFdC.EO.l)  00  TO  242 
243  CONTINUE 
242  CONTINUE 
741  CONTINUE 
C 

C  COMPUTE  ELEMENT  WIDTHS 
C 

DO  239  1*1, NELTOT 

ELWDTHC I )«DA5S(OCOORD(NELCNA( I,3),2)-0C00RD(NELCNA(I,2) ,2) ) 
239  CONTINUE 


00004160 

00004170 

00004180 

00004190 

00004200 

00004210 

00004220 

00004230 

00004240 

00004250 

00004260 

00004270 

00004280 

00004290 

00004300 

00004310 

00004320 

00004330 

00004340 

00004350 

00004360 

00004370 

00004380 

00004390 

00004400 

00004410 

00004420 

00004430 

00004440 

00004450 

00004460 

00004470 

00004480 

00004490 

00004500 

00004510 

00004520 

00004530 

00004540 

00004550 

00004560 

000045/0 

00004560 

00004590 

00004300 

00004610 

00004620 

00004630 

00004640 

00004650 

00004660 

00004670 

00004660 

00004690 

00004700 

00004710 

00004720 

00004730 

00004740 

00004750 
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GROUP  ELEMENTS  TO  AVOID  THE  DUPLICATE 
CALCULATION  OF  IDENTICAL  STIFFNESS 
MATRICIES 

UR I T  E  C  6 • 3090 ) 

JQOO  FORMAT!/-,*  TO  REDUCE  RUN  TIMES,  ELEMENTS  MAY  BE  *,/» 
X'  GT.OUPED  INTO  SETS  WHICH  WILL  BE  ASSIONED* ,/ , 

*•  IDENTICAL  STIFFNESS  MATRICIES 
X *  ENTER'  1  TO  USE  THIS  OPTION  *,/, 

x*  2  OTHERWISE  ') 

READ! 5, X  )  MOPT 
inNOPT.EQ.l)  00  TO  5001 
Nl  *0 
112  1 0 
113*0 

DO  5002  IH.NEL1 
IF!NELTYP!I)  .EQ.P  H1«MU1 
I  F  <  tIEL  TYP!  I ) . EQ . 2  >  H2*M2+1 
3002  IF! HELTYP! t ) ■ EQ .3)  N3*M3+l 
NEF! 1 )*NUMF 
NLH! 1 )  *  M  2 
NOH! 1  )  - N 3 
NPLt U*Nl 
H'HUMF 

DO  5005  I  *  1 ,  N 

5005  HOFF!  1,1,1  )*NElFAr>!  1,1) 

IC*0 

DO  3004  l°l.NELl 

IF! HELTYP! I ) . EQ .2 )  ICKCK 

IFUIELTYP! I ) , EQ  >2)  NGLH! 1 , IC, 1 )*NELCON< I, 1 ) 

IF(NELTYP< I ) .EQ.2)  NUMIH!  1 . 10*1 

3004  CONTINUE 
ICO 

DO  500S  1*1, NEL  1 

IF! MEL  TYP! I ) . EQ  .  5 )  IC«  XC+l 

IF! NELTYP! I ) . EJ . 3 )  HOOH! 1 , IC, 1 ) 'NELCON! I , I ) 

I F!  NEL  TYP!  I).  E3, 3)  NUMQH! 1 , 1C) *1 

3005  CONTINUE 
ICO 

DO  3D 06  1*1. NEL l 

If (NELTYP! I)  .EQ. 1)  IC*ICH 

I  Ft  NEL  TYP!  I)  .  EQ  .  1 )  NOP '.  ( 1 ,  IC,  1 )  *NELCON!  1,1) 

If (NHL TYP! I ) .EO. I )  NUMPL ! 1 , IC ) *  1 

3006  CONTINUE 
IIOEL1  +  1 
'll  O 
il.'O 

in  -  o 

DO  3007  I*N,HELT01 
I  F(  HEl  1  YP<  I  )  EO.n  Nl  »N1*J 

I  T  (  NEL  TYP!  I  )  .  EQ .  2  )  N2-M2U 

3007  I F ' HEL TYP! 1 ) . EQ . 3 )  N3«N3»I 
NEK  2 )  «NUMF 

HI H! 2 ) ‘ M2 
NOH!  D  013 
HP l (?) «N1 

II  IIUMF 

DO  300*  1*1  ,  N 

3008  NOEF (  2 . 1 ,1 )*NELFAS( 1. 1  ) 

ICO 


00004760 

00004770 

00004780 

00004790 

00004800 

00004810 

00004820 

00004850 

00004840 

00004850 

00004860 

00 00 A3 7  0 

00004880 

00004890 

Q0Q0490Q 

00004910 

00004920 

0Q0Q4950 

00004940 

000049  50 

0000496 0 

00004970 

00004980 

00004990 

00005000 

00005010 

00005020 

00005030 

00005040 

00003050 

00005060 

00005070 

00005080 

00003090 

00005100 

00005110 

00005120 

00005130 

00005) 40 

00005150 

00005160 

00005170 

00005180 

00005190 

00003200 

00005210 

00005220 

00005230 

00005240 

00005250 

00005260 

00005270 

00005280 

00005290 

00 1!  05500 

OOOUSSIO 

00005520 

00005330 

00005340 

00005350 


N'-NELIM 

DO  3010  I»N,NELTCr 

IF! MELTYP! I ) . t'Q .  2)  IC»IC*l 

I F(NEITYP! I ) . E9 . 2)  NGLH(2. IC,l)aNELCON(I. 1) 

IFlNELTYPt 1 ) .EQ.2)  NUMLHl 2, IC) «1 

3010  CONTINUE 
IC*0 

N*MELi+l 

00  3011  I »N, NEl TOT 
IF(NEI.TYI»m  EQ.li  ICMC+l 
t  F(  NEt.  f  YH(  T ) .  E9 . 1 )  NGPl  ( 2 •  Z C •  1 ) 1 NEl CON! I , 1 ) 
IFCnElTYPlU.EQ.l)  NUMPl (2,10*1 

3011  CONTINUE 
IC*0 

N*NEL  1  +  1 

DO  3012  1  a H « NEt TUT 

IFCHiriTYPf  1)  .Etl.  31  IC'IOl 

I  F  t  UEI  TYP(  I ) . EQ . 3 )  HC.OH(2,iC.l)*NeLCON!I,l) 

IFtNElTYPm  .80.3)  NUM0H(2,IC)«1 

3012  CONTINUE 
GO  TO  3013 

3001  CONTINUE 

WRITE! 6 , 301 3 ) 

3013  FORMAT!/, •  FOR  THE  TOP  PLATE  INPUT  NUMBER  OF  GROUPS1,/. 

H*  FOR  THE  EFFECTIVE  ‘ASTENER,  LOADED  HOLE,  UNLOADED1,/, 
»•  HOLE  AND  PLAIN  ELIMENT  »,/, 

»•  (INPUT  0  Ip  ELEMENT  TYPE  IS  NOT  USED)*) 

READ<5.*>  NEFI1 )  ,NLH(  ) .  NOH(  1 ) ,  NPL<  1 ) 

WRITEU,  3016) 

3016  FORMAT! 1  OROUPINO  OF  EFFECTIVE  FASTENER  ELEMENTS) •> 
N*NEF<1> 

DO  3017  1*1, N 
WRITE(6.:018)  I 

3018  FORMAT!*  ENTER  NUMBER  OF  ELEMENTS  IN  CROUP  NUMBER* , 18) 
READCS.R)  NUMtrU.l) 

N1 'NUMEF! 1.1) 

HRITE16.3019)  N1 

301?  FORMAT! •  FNTER  '.18.'  ELEMENT  IDS') 

Rr\Lu;,»)  <NOEF!l.l,J).J*l,Nl) 

3017  CC.'ir  tMiip 

TlR  IT  E  (  0  i  3088  ) 

3088  KOfV.Tt/,'  DROUPINi,  II-  LOADED  HOLE  ELEMENTS'*) 

N*MI  H(  1  ) 

DO  3D20  Pt.M 
iiRnf(b,;o2i >  i 

3021  FORMAT! •  Ell  I ER  NUMBER  OF  ELEMENTS  IN  OROUP  NUMBER  ',18) 
RFAD(S.M)  Mil'll  H<  ]  t  i 

111  l.'l  ML H!  I  .  I  , 

UR1  11.6.  )n22  )  Ml 

3022  FORMAT! •  INPUT', 1H : •  ELEMENT  IDS') 

Rt,‘.U(3.«)  (U0LH!1,I.J).J*1,N1> 

3020  COUTtllUC 

IFdlOHi 1 ) . EO.O)  00  TO  4071 
'■IR ITE  (6,3023) 

3023  FORMAT! •  i.RUUPINU  HP  UNLOADED  HOLE  ELEMENTS') 

M  -MOH  t 1  l 

DO  3024  IH,N 
HR  I T  F  v  6 . 3025)  I 

3025  FORMAT! »  ENTER  NUMBER  OF  ELEMENTS  IN  OROUP  NUMBER',18) 
RCADC  5,  *  '  MUMOHd.T  ) 


00005360 

0000837  0 

00005380 

00005390 

00005400 

00005410 

00003420 

00003430 

00003440 

00005430 

00005460 

00005470 

00005480 

00005490 

00005500 

00005510 

00005520 

00005530 

00005540 

00005550 

00005560 

00005570 

00005580 

00005590 

00005600 

00005610 

00005620 

00003S30 

00003640 

00005650 

00005660 

00005670 

00005680 

00005690 

00005700 

00005710 

00005720 

00005730 

00003740 

00005750 

00005760 

00005770 

00005780 

000  0  57 90 

00005800 

00005810 

00005820 

00005830 

00005840 

00005850 

00005860 

00005870 

00005880 

00005890 

00005900 

00005910 

00005920 

00005930 

00005940 

00005950 


Ml *MUMOH< 1 . I > 

WRITEC  6 i 3026  )  HI 

3026  FORMAT!'  ENTER', ISC  ELEMENT  IDS') 

KEAD(S.K)  (NCQHCl, I, J),J*1,NI > 

3024  CONTINUE 

4071  IFCNPLU)  .EO.O)  00  TO  4072 
•  WRI TE( 6 , 3027 ) 

3027  FORMAT ( 1  GROUPING  OF  PLAIN  ELEMENTS' 1 ) 

N«MPU1) 

DO  3031  1  *1  . N 
HRITEC6.  ’032)  I 

3032  FORMAT ( '  ENTER  NUMBER  OF  ELEMENTS  IN  GROUP  NUMBER' . IB) 
READ( 5 , « i  HUMPLC1  l) 

N1*NUMPL( 1 .1) 

WRITEC  6 , 3033)  N1 

3033  FORMAT!’  ENTER' . IF. *  ELEMENT  IDS') 

R E A D ( 5 . < )  (NGPLCi,l,J).J*l.Nl) 

3031  CGMTtMUE 
407  2  CONTINUE 

UR  I TEC  6 , 40 l b  ) 

4015  FORMATC/.'  FOR  THE  OOTTOM  PLATE  INPUT  NUMBER  OF  GROUPS',/, 
*'  FOR  THE  LOADED  HOI E. UNLOADED  HOLE,  AND  PLAIN 
*'  CLEMEN TO  ',/, 

»'  (INPUT  0  IF  AN  ELEMENT  TYPE  IS  NOT  USED)') 

RCADCS.x)  NLHC2) , NOHC2) , NPLC2) 

NEFC  2 ) =  NEFC I ) 

N»NEFC 1 ) 

DO  4017  I  *  1 . N 
NUMEFC  2,1) *NUMEF( I , I ) 

HI *NUMCF( 1,1) 

DO  4019  J*l,Nl 

4019  IIOEFC2, 1.J)*NOEFCL  I,  J) 

4017  CONTINUE 

HRITEC6 ,4088 ) 

4088  FORMATC/,'  OROUPING  OF  LOADED  HOLE  ELEMENTS'*) 

N’NLHCI') 

PO  '..IDO  1*1 .  N 
MRITCC#.  ,4021  )  I 

4021  FORMATC  ENT  ER  NUMBER  OF  ELEMENTS  IN  GROUP  NUMBER  MB) 

P. EADC  5 1  *  )  HUMLHC  ?  .  I  ) 

N1-NUMLHC2, I ) 

HRITCC  A ,  <022  >  Nl 

4  0  22  FOKIUTC  INPUT  '.18,  '  ELEMENT  IDS’) 

PEADC  5, *  )  CN0LHC2.I.J), J«i,Nl> 

4020  CONTINUE 

IFCNDHCZ) .EO.O)  00  TO  4073 
HRITr.Ct  ,4023) 

4023  FORMATC  GROUPING  OF  UNLOADED  HOLE  ELEMENTS’) 

N*N0H( 2  * 

DO  4024  I=1,N 
WRITE (6,4025)  I 

4025  FORMATC  ENTER  NUMBER  OF  ELEMENTS  IN  GROUP  NUMBER',18) 
READC5.0  NUMOHC  2,1) 

NWIUMOHC2.I) 

ITR ITEC6.4026)  Nl 

4026  FORMATC'  ENTER', 18,'  ELEMENT  IDS') 

READC5.X)  ( NOOHC  2, I,J),J*1,N1) 

4024  CONTINUE 

4073  IFCMPLC2) .E9.0)  GO  TO  4074 
URITE(6.4"27) 


00005960 

00005970 

00005980 

00905990 

00006090 

00006010 

00006020 

00006030 

00006040 

00006053 

00006060 

00006070 

00006080 

00006090 

00006100 

00006110 

00006120 

00006130 

00006140 

00006150 

00006160 

00006170 

00006180 

00006190 

00006200 

00006210 

00006220 

00006230 

00006240 

00006250 

00006260 

0000627C 

00006280 

00006290 

00006300 

00006310 

00006320 

00006330 

00006340 

00006350 

00006360 

00006370 

00006380 

00006390 

00006400 

00006410 

00006420 

00006430 

00006440 

00006450 

00006460 

00006470 

00006480 

00006490 

00006500 

00006510 

00006520 

00006530 

00006540 

00006550 


non 


4 027  FORMATS  GROUPING  OF  PLAIN  ELEMENTS'*) 

N*NPl!2> 

00  4031  IU.N 
WRITE!6,4G32>  I 

AO  52  FORMAT  <  *  ENTER  NUMBER  OF  ELEMENTS  IN  GROUP  NUMBER'. IS) 
READ!5,«0  NUMPL!2,I) 

N1«NUMPL(2,I) 

WRITE(6,4Q33)  N1 

4033  FORMAT!  •  ENTER  MS,'  ELEMENT  IDS') 

READ!  5,  x )  !NGPU2,I,J),J*1,NI) 

4051  CONTINUE 
4074  CONTINUE 
3013  CONTINUE 

WRITE<6.3737) 

3737  FORMAT!/,'  INPUT  DATA  FOR  FAILURE  ANALYSIS",/) 

00  226  K*  1 , 2 

IF! CM!  K) . NE .CMC)  00  TO  2226 
UK  I T  E  C  6 . 5  32  J  K 

532  FORMAT! •  ENTER  FIbCR  ULTIMATE  STRAIN  VALUES  ',/, 

*'  IN  PLATE  NO  •  -IB,/, 

«'  EPSILON  ULT  IN  COMPRES*ION  ',/, 

*•  EPSILON  ULT  IN  TENSION  ',/, 

h*  GAMMA  ULI  IN  SHEAR  ',/) 

READ!  5 .  *  )  !,jTULT(I,K). 1*1,3) 

GO  TO  2227 

2226  CONTINUE 
WRITE!6.2229) 

2229  FORMAT! •  ENTER  METALLIC  STRENGTHS' 

*•  TENSILE  STRENGTH  ',/. 

*'  COMPRESSIVE  STRENGTH  ',/, 

R •  SHEAR  STRENGTH' ) 

READ! 5, * )  STM! 1 ) , STM(2) ■ STM! 3) 

2227  CONTINUE 
WRITE(6 , 4054) 

4054  FORMAT!/, •  AN  AVERAGE  STRESS  CRITERIA  IS  USED  TO  ',/, 

<*•  PREDICT  FAILURE.  AO  VALUES  ARE  REQUIRED  AS  ',/, 

*•  CHARACTERISTIC  DISTANCES  OVER  WHICH  STRESSES',/, 

*'  ARE  TO  BE  AVERAGED  AND  COMPARED  TO  UNNOTCHED',/, 

*•  LAMINATE  STRENGTHS  TO  PREDICT  FAILURE',/) 

NR!TE!6. 5432)  K 

5432  FORMAT!'  ENTER  AO  VALUES  FOR  STRESS  AVERAGING',/, 

«'  FOR  EACH  FAILURE  MODE  IN  PLATE  NO', 15,/, 

* '  AOMT  *  NET  SECTION  ',/. 

*'  A08R  *  BEARING  ',/, 

*'  AOSO  *  SHEAROUT  ') 

READ!  5.  *)  AONTOO.AOPR!  K),AOSO!K) 

226  CONTINUE 

CASE  HEADING 

WRITEI6. 143) 

143  FORMAT!///, 10X, 'PROGRAM  SAMCJ'.//) 

IF(MSDLS.EQ.I)  WRITE!6,633) 

I F! NCDL S . EO . 2 )  WRITE(6,634) 

653  FORMA T !  ?X , 'A  SINGLE  LAP  SHEAR  PANEL  WILL  IE  ANALYZED',/) 
634  FORMAT ( 2X , ' A  DOUBLE  LAP  SHEAR  PANEL  WILL  BE  ANALYZED',/) 
IF!I TMCMEQ.l)  MR I T E ! 6 , 8 2 3 ) 

IF(l TNCM.E0.2)  WRITEI6.824) 

823  F0RMAT!2X. 'LOADED  IN  STATIC  TFNSION '  /) 

824  FORMAT! 2V  'LOAOED  IN  STATIC  COMPRESS  ON',/) 


00006560 
00006570 
00006580 
00006590 
00006600 
00006610 
00006620 
00006630 
00006640 
00006650 
00006660 
00006670 
00006680 
00006690 
00006700 
00006710 
00006720 
00006730 
00006740 
00006750 
00006760 
00306770 
00006780 
00006790 
00006800 
00006810 
00006820 
00006830 
00006340 
00006850 
00006bi0 
00006870 
00006680 
00006890 
00006900 
00006910 
00006920 
C0006930 
00006940 
03006950 
00006960 
00006970 
00006980 
00006990 
00007000 
00007010 
00007020 
00007030 
00007040 
00007050 
00007060 
00007070 
00007080 
00007030 
00007 100 
00007110 
00007120 
00007130 
00007140 
00007150 
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i 


DO  2 Ci  1  1  =  1.2 
HRIT  El  6 .600)  I 

600  FORMATC10X. 'PLATE  NO  MS,'  ",/> 

UR1 TEC  6  >6  01 )  tMTLCI.JJ.J-1. 15J 

601  FORMAT C2X. 15A4,/) 
hT*NELPL5CI,li*PLYTHK<:,l) 

URITEl 6 ,691)  El ( 1 > . E2( I ) , GUI 1 ) , V12tl) . V21( 1 1 
691  FORMAT (2X» 'MATERIAL  PROPERTIES' ,/,/, 

XI OX. ' El  *'.09.3.'  PS!',/. 

XIOX.'EO  *\D9.3,'  PS1'./, 
x’ OX, 'G12  * ' » 09 . 3  > '  PSI',/, 
xiOX. ' NU12» ' ,09.3./  , 
xinx, ' NU21  =  ' ,  D9 . 3 .  /  ) 

24 1  CONTINUE 

WR  ITF.l  6 , 6  06  ' 

606  FORMATdOX, 'FASTENER  DESCRIPTION! ',/ ) 

WRIT c( 6 , 607 )  ■'MTll3,J).J*1.15) 

607  F0RMATC2X, IS  A,/) 

HRITEt 6 . 47 * '  FASD 

47 3  FORMAT! ?X , '  It AMETER  *  ',D9.5,'  INCHES'. /I 
WRITE ;  6.607  FASE.FASV 
609  FORMAT  ( 2X ,  *  MATERIAL  PRO°ERTI ES' , / . / 

MOX.'E  ='  £  .5,'  PSI'./, 

*10X, 'MU«',D9.3./  ) 

708  CONTINUE 
UR ITE ( 6,9?! 

921  FORMAT!. '.'.19X,  ‘FAILURE  ANALYSIS',/) 

558  FORMAT* EM  N  AVERAGE  STRESS  CRITERION  WILL  BE  USED',/) 
DO  631  1=1  ; 

WRITEC6 ,632'  T 

632  F0RMAT<2\. 'PLATE  NUMBER' , 15./) 

NP*NUMPLY(I ) 

IFtCMCT  .ilE.CIt.)  GO  TO  3112 
UR  IT  EC  6  711 ) 


713 

774 

677 


FORMAT!/, 2.T, 'FIBER  STRAIN  ULTIMATE5 '  «•’ ) 


URITEl 6 , 67 ' 3  (STUlT(LL,I),lLal,3) 


COMP 
' ,  D9 
' .  D9 


' ,  D9 
3./, 
3,/) 


,/) 


3.. 


TORMAT  EX, ' EPSILON  ULT 
*2X, 'EP  ,ILCN  'JLT  TEN 
«2X. 'GAMMA  i'LT  SHEAR 
GO  TO  1113 

3112  CONTINJF 
UR  t  T  E  C  b  .  3 1  L  ■•« ) 

511A  F  "MIMA  i  (  1  METALLIC  STRENGTHS 

UR 3 TEC 6, 3115)  5TMC 1) . STMC 2 ) , STMC 3 ) 

3115  FORMATION, 'TENSILE  STRENGTH  *  '.09. 3,/. 
•2X. 'COMPRESSIVE  STRFNGTH  *  ',09.3./. 

XPX . ' L HEAR  STRENGTH  *  ',09.3./) 

3113  CONTINUE 

UR  I  TEC  6  ,  1  5i‘  3) 

1563  FORMA TC// , '  CHARACTERISTIC  DISTANCES',/) 
URITEl  6 . 564)  AONTC 1) ,  AOBRC I ) ,  AOSD;’ t ) 

564  FORMAT C '  AONT  =  '.D9.3.'  INCHES'./. 

»•  A  J DR  =  ',09.3.'  INCHES’,/, 

*•  AJSO  =  ',09.3.'  INCHES'./) 

631  CONTINUE 


THE  JOINT  LOAD  DISTRIBUTION  IS  CALCULATED  U3IN0  THE 
FINITE  ELEMENT  METHOD  UITH  SPECIAL  PROBLEM-ADAPTED 
ELEMENTS  WHICH  EFFECTIVELY  REPRESENT  THE  STIFFNESS 


00007160 

00007170 

00007180 

00007190 

00007200 

00007210 

00007220 

00007230 

00007240 

00007250 

00007260 

00007270 

00007280 

00007290 

00007300 

00007310 

00007320 

00007330 

00007340 

00007350 

00007360 

00007370 

00007380 

000C7390 

00007400 

00007410 

00007420 

0000743C 

00007440 

00007450 

00007460 

00007470 

00007430 

00007490 

00007500 

00007510 

00007520 

00007530 

00007540 

C0007550 

00007560 

00007570 

00007580 

00007590 

00007600 

00007610 

00007620 

00007630 

C0007640 

00007650 

00007660 

00007670 

00007  68  Q 

00007690 

00007700 

00007710 

OOOU77  20 

00007730 

00007740 

00007750 


non  *  oooo  oooo  ooo  ooooo 


PROPERTIES  OF  FASTENERS,  LOADED  HOLES.  AND  OPEN 
HOLE  REGIONS  IN  THE  JOINT 

INTERNAL  APPLIED  LOAD  SET  TO  1  KIP 

APP-IQOO.O 

IFUTNCM.EQ.2)  APP*-APP 
NELT0T*NEL1+NEL2 
NGTOT 'NGP1+NGP2 

INITIALIZE  ARRAYS 

DO  1  1*1,50 
DO  3  J  *  1 , 4 
DO  3  K*l,4 

3  ELSTFFd,  J,K)*0> 

1  CONTINUE 

DO  4  1*1,200 

PBcm*o. 

!!riS<I  )«0. 

AHR( I ) *0 . 

ANR2C 13*0. 

DO  5  J  *1 , 200 
CLSTPFd.  J>*0. 

A59MC I,J)*0, 

5  CONTINUE 

4  CONTINUE 

CALCULATION  OF  EFFECTIVE  FASTENER  ELEMENT 
STIFFNESS  MATRICIES 

WRITC(6,S41S) 

1418  FORMAT!/. •  PAUSE  FO?  STIFFNESS  MATRIX  CALCULATIONS',/) 
NLOOP=NEF( 1 ) 

DO  444  1*1 ,NL00P 
NEL*NOEF(l, 1.1) 

DO  5001  11*1, NUMF 

500!  I  FI  NCI  .E0.MEI  'ASCII,  D)  IEI  *11 

SEARCH  FOR  '.OADED  HOLE  ELEMENTS  CONNECTED  > 

FA-TENER  ELEMENT 

NTOP*0 
NBOT  *0 

DO  645  J* 1 , NEL1 

c43  IFINELFASC 1EL.2) . EQ. NELC0NC J ,6 ) )  NTOP«J 
NP1 *N£L1+1 
DO  446  J*NP1 , NELTOT 

446  IF(NELFAS(1EL,3) . EO . N EICON! J ,6 ) )  NBOT*J 
NPLYf 1 )*NELPLS( 1 , LYPNOITOP) > 

HU  )*ElTHK(NTOP) 

DO  910  JJJ*1 , 50 

910  IPLY(JJJ,\)*NELPT<l,LvrNiNTOP),JJJ) 
NPLY(2)*NELPLS(2,LYPIKNbOT) ) 

H( 2  )  *ELTHK( NBOT 1 
DO  113  JJJ*1,50 

113  IPLY(JJJ.2)=NELPT<2,LYrN(NB0T),  JJJ) 

initialize  parameters  for  collocation 


00007760 
0000/770 
00007780 
00007790 
00007800 
00007810 
00007820 
00007830 
00007340 
00007850 
00007860 
00007870 
00007880 
00007890 
00007900 
00007910 
00007920 
00007930 
00007940 
0000795u 
00007960 
00007970 
00007980 
00007990 
00008000 
00008010 
00008020 
00008030 
00008040 
00008050 
00008060 
00008070 
00008080 
00008090 
00008100 
00008110 
00008120 
00008130 
0‘ 008140 
00008150 
00008160 
00008170 
00008180 
00008190 
00008200 
00008210 
00008220 
00008230 
OOOD8240 
00008250 
00008260 
00008270 
00008280 
00003290 
00008300 
00008310 
00003320 
00008  331) 
00008340 
C0003350 
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in  *7 

00008 560 

N0UT-5? 

00008J70 

NCI 1*10 

00008 J80 

NB*M0UT*4»MCLL 

00008500 

AX*FSCD<NT0P,3> 

00008400 

BX*FSCD(NT0P»  J) 

00003410 

k 

00  570  L»1.2 

Q0008420 

PHI*0  .  000 

00008430 

IF(L.EQ.Z)  PHI*90 . DO 

00008460 

DO  530  K  =  1 . 2 

00003450 

MTB-KIOP 

00008460 

IFIK.EQ.2)  NTB*NQ0T 

00008470 

c 

00008480 

c 

ELEMENT  VERTEXES  ARC  INTERNALLY 

00008490 

c 

NUMBERED  ASi 

00008500 

c 

J  2 

0300851 0 

c 

00003520 

c 

A  1 

000035 JO 

c 

00008560 

r,FX  =  <OCOORD(NELCNA<NTB,5>.mGCOORD<MELCNAtMT3,2),  l))/2.OD0 

00008550 

OF  Y  =  (  GC00RDC  NELCNAl NTD. J  ) . 2 ) +GC00RD( NELCNAI NTB.2).2))/'2.0DO 

0000C  560 

DO  128  J J  *  1 1  4 

00008570 

XC(JJ)=GC00RD(NELCNA(NT8.6-J.I),1>-FSCDCNTB,1> 

00008580 

YCC JJ)=GC00RDCNELCNAUIT8,6-JJ),2)-FSCD<NTB.2> 

00008590 

123 

CONTINUE 

00008600 

XC<  5 )  =  XC< 1 ) 

00008610 

YC t  5  )  *YC( 1 ) 

00008620 

W»ELHDTH< NTB ) 

00003650 

AST  =  10  00.0 

00003640 

CALL  POLY(W.AST,JK,K.NCLl> LTNCM) 

00008650 

' 

CALL  CIRCOI, AST, JK.K. LTNCM) 

00003660 

. 

M0PT4  =  l 

0QQ08670 

1 

NCA3E* 1 

00003680 

NTYPE’NElTYPCIEt) 

00008690 

CALL  FIGE0M(H,PH1,K, MQPT4 . NCLL ) 

00008700 

CALL  FBOLTCANGK.H.PHI.K) 

00008710 

530 

CONTINUE 

00008720 

N»MPLYU> 

00008750 

GO  JO  11=1.  N 

00008740 

1 

M »  I P L Y <  II.l) 

00008750 

JO 

PLYKC  1 1 )  * ANGKCM.  1  ) 

00008760 

N  =  NPL Y ( 2 ) 

00008770 

DO  61  11  =  1.  N 

00008780 

111  *  1 1 +-UPL  Y(  1  ) 

00008790 

N2= IPLYi I I , 2) 

00008800 

61 

PLYK(N1)*ANGK(H2.2) 

00008810 

c 

00003820 

;  c 

CALCULATION  OF  FASTENER  PROPERTIES 

00008850 

1  c 

00008840 

FA30=FASE/(2.*<1  +FASV ) ) 

00003850 

1 

FA5LAK=5.M 1  .  0  +  FA3V >/< 7 . +6 . *FA5V) 

00003860 

f  ASR=FA3D/2. 

00008870 

FA3A  =  AC03(-1  .  )*FAJRm*2 

0000S830 

F  A3I T  ACOS( -1 . )*FASR<*4/4. 

00006890 

• 

FAS55  =  FASLAM)*>-AGGXCASA 

00008900 

1 

FASBS=FA3E*FASt 

00003910 

1 

P--1  000. 

00008920 

CALL  CENTDCH. FASS3. FASDS.P) 

00008950 

CALL  SOLVEtH.F.Ul ,U.M 

00008940 

1 

1 F ( L . EQ.Z1  GO  TO  6S6 

00008950 

• 

199 

.J  —  -  — . -- 

a 

a 

i 

9 

RDSTFFC IEL,1)*DABS(P/(U14U2)) 

00008960 

GO  TO  570 

00008070 

M  666 

RDSTFF(IEL,2)«DABS(P/<U1+U2)) 

00008980 

V  570 

CONTINUE 

00008990 

V 

IF( NUMEF( 1 , X ) . EQ  •  1 )  GO  TO  644 

00009000 

a 

N«NUMEF(1,I) 

00009010 

•1 

DO  5023  K»2,N 

00009020 

DO  5024  IH.NUMF 

00009030 

CM 

O 

C' 

C; 

ie(NGEFCl,I,X).EQ.NELFA5CL,l)) 

IEL2«L 

00009040 

X0STFF(IEL2.1>»R0STFF(IEL.1> 

00009050 

*  • 

RDSTFF(IE12,2)*RDSTFFUEL,2) 

00009060 

;<*  5023 

CONTINUE 

00009070 

*  644 

CONTINUE 

00009080 

s'  8584 

CONTINUE 

00009390 

<•«  c 

00009100 

J  C 

CALCULATION  OF  LOADED  HOLE  AND 

UNLOADED  HOLE 

00009110 

c 

ELEMENT  STIFFNESS  MATRICIES 

Q000912U 

c 

00009 130 

**•  c 

00009140 

c 

INITIALIZE  QAUSSIAN  QUADRATURE 

POINTS  AND  HEIOHT3 

00009150 

V  C 

00009160 

V 

NOP-<5 

(0009170 

•  • 

G5SXCl)*-0. 9759065285 

00009180 

c 

QSSXC2)*-0. 8650633666 

00009190 

rr 

A 

i. 

05SXC 6794095682 

00009200 

Q33X(45«-0. 4333953941 

00009210 

03SX( S 1 a~0 • 1488743389 

00009220 

>:• 

GSSHC 11*0. 06667 13443 

00009230 

/• 

GSSW(2)*0. 1494513491 

00009240 

GSSI'K  51*0. 219086 36 23 

00009250 

& 

OSSW41-0. 2692867193 

00009260 

a 

GSF.WC  S)  *0 . 29551.42247 

00009270 

?! 

DO  £88  1*1, NGP 

00009280 

/. 

GSSXn+NGP>*-GSSXING?-I-H> 

0000929U 

/* 

GSSHC I  +  NGP >  «GSSW<  NOP- 1  + 1 ) 

00009300 

•V  588 

CONTINUE 

00009310 

•? 

NAVD* 1 0 

00009320 

V, 

DO  420  KJ*1 , 2 

00009330 

I 5LH* 1 

000093 'tO 

J 

I  50H*  1 

00009350 

I3PL*1 

00009360 

.*»; 

N100P*NLH(KJ )+N0H(K  J HNPL  (KJ ) 

00009370 

■> 

NCLH*0 

00009380 

NCOH*0 

00009390 

NCPL  *0 

00009400 

DO  400  L  *1 , NLOOP 

00009410 

I F (NCLH . EQ . NLH( KJ ) )  I5LH*0 

00009420 

3 

IF(NCLH.EQ.NLHCXJ))  GO  TO  6010 

00009430 

%* 

NCLH«NCLHU 

00009440 

I  EL2*NOLH( KJ  »NCLH,  1 ) 

00009450 

GO  TO  6011 

00009460 

\  6010 

I  F( MCOH . EQ . N0H( <J ) )  IS0H*0 

00009470 

S' 

I F( NCOH . EQ . N0H( XJ 1 )  GO  TO  6020 

0000940  C 

s‘ 

NC0H*NC0H+1 

OOQU9490 

w  4 

IEL2*NOOHtXJ,NCOH,  1) 

00009500 

GO  TO  6011 

00009510 

6020 

IFCNCPL.EQ.NPKXJ))  I3PL»0 

00009520 

i 

TF(NCPl .EO.NPL(XJ) )  00  TO  400 

00009530 

s' 

NCPl*NCPL*l 

00009540 

\ 

1  J 

*5 

V 

s 

s* 

5“* 

I  EL 2* NGP  1  'XJ.NCPL.l) 

200 

00009550 

oon  ooonoooor.  oono  nnonnooo 


6011 

CONTINUE 

00009560 

DO  6030  KK«1,MEIT0T 

OOU09570 

6030 

IFCIEL2.E9.NElC0M(KKil)>  IEL*KK 

00009580 

H(KJ)*ELTHK( IEL) 

00009590 

NPLYI KJ )*NELPIS{KJ>  LYPN( IEL ) ) 

00009600 

DO  919  J J J>1 . SO 

00009610 

IPLYI JJJ , KJ )*NELPT(XJ>LYPN(IEL ) , JJJ) 

00009620 

919 

CONTINUE 

00009630 

NRNKJS 

00009640 

IFINELTYPIIEL)  .EG. 2)  NRNK«7 

00009650 

00009660 

INTERNAL  NUMBERING  OF  ELEMENT  VERTICIESt 

00009670 

00009680 

3  2 

00009690 

00009700 

4  1 

00009710 

00009720 

00009730 

SFX« ( GCOORDI NELCNAC IEL  » 5) > 1 ) +OC00RDC N El CM AC IEL>2)>1)V2.0D0 
SFY*(OCGORD<NF.LCNA(  I  EL  ,  3  ) ,  2  )+OC00RDC  NELCNAC  IEL  .  2  ) .  2)  )/2 .000 

00009740 

00009750 

DO  440  K<1.4 

00009760 

XC(K) *GCOORD( NELCNAI IEL . 6-K ) , 1 ) -FSCDt I  EL . 1 ) 

00009770 

IF<NELTYP(  IF.L  ) .  EQ  .  1  >  XC<K>  •CCOORDI  NELCNAC  ICL , 6-10  ,  1  )-SFX 

00009780 

YC(K)IGCOORD(NELCMA< IEL.6-K).2)-FSCDCIEL«2) 

00009790 

IFOJELTYPI IEL ) . EQ . 1 )  YCCIO «GC00RD( NELCNAI IEL , 6-K) , 2J-SFY 

00009800 

440 

CONTINUE 

00009810 

XC<3)«XCU> 

00009820 

YC<  5  >  «YCC 1 ) 

00009850 

AX*F5CDC IEL  >  3 ) 

00009340 

I r (NELTYPC I EL ) ■ EQ • 1 )  AX«0.1 

00009850 

BX«AX 

0000986U 

PI -DARC0SC -1 . 0D0  J 

00009870 

RAD«PI/180.DO 

00009880 

N0AUSS*2XNGP 

0000989'i 

N0PT«4HN0AUSSMN2 

00009000 

IC«0 

00009910 

NCPT«2XNOP 

00009920 

00009930 

DETERMINE  COORDINATES  AT  WHICH  STRESSES  AND 

00009940 

DISPLACEMENTS  ARE  TO  BE  COMPUTED. 

00009950 

ELEMENT  IIATJRAI  FLEXIBILITY  MATRICIES 

00009960 

ARE  COMPUTED  SY  INTEGRATING  STRESSES 

00004970 

FOR  EACH  IOAD  CASE  IN  THE  NATURAL 

00009980 

MODE  METHOD.  THE  ELEMENTS  ARE  DIVIDED 

00009990 

INTO  FOUR  REGIONS  AND  THE  GAUSSIAN  POINTS 

0001 0000 

ARE  SCALED  TO  EACH  REGION  SIZE 

00010010 

00010020 

00010030 

REGION  1 

00010040 

00010050 

DO  15  11*1, MCPT 

00010060 

DO  15  JJU.NCPT 

00010070 

IC«1C+1 

00010030 

XOUT(  ICJ*<(-AX-XC(  )/2.  )XOSSXCin  +  (-AX+XC(  3)V2. 

0" 0 1  0  090 

YOUT(IC)  =  (  (YC(  3>-YC<0  V2.  >*GSSX(  J  J  ) +  <  YC(  3  )+YC(  4  )  )/2. 

00010100 

HOHTUCJ'OSSWUnKGS'.Wt  JJ>X(Ya3)-YC(4))X(-AX-XC(3)>/4.D0 

0001 0110 

15 

CONTINUE 

OOOIOUO 

00010130 

REGION  2 

00010140 

00010150 

t 
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nnn  oon  onon  ooo  ctc%n 


DO  16  II »1 #NCPT 
DO  16  JJ*1»NCPT 
IC«ICU 

XOUT<IC)*AX«OSSX<II> 

YI»DSQRTIAXX*2-X0UT< ICJM2) 

Y0UT( IC)*( (YC121-YI >/2 . )MGSSX( JJ )4<YC(I)*YI )/2. 

WOHT (I C ) »0SSW< 1 1 ) HOSSWt  J J ) * ( YC ( 2 ) -Y I ) MAX/ 2 . 0  DO 

16  CONTINUE 

REGION  3 

DO  IT  IX«1.NCPT 
DO  17  JJ*1,NCPT 
tC*ICU 

XOUTCO'AXXOSSXCII) 

Y1«-D50RT(AXXX2-XOUT(IC)XX2) 

Y0UT(IC)»((YI-YC(l)>/2.)x0SSX(JJ)+<YI+YCCl))/2. 

WOHT ( IC) *Q5SW( II )*0S3W< JJ )*(YI-YC(1) )*AX/2 . 0  DO 

17  CONTINUE 

REGION  4 

DC  16  1 1  ■  1  *  HCPT 
DO  16  J  J ■ 1 »NCPT 
IC«rc+l 

xouT(ic)«(<xc<n-AX)/2.)*osax(n)*<xca>+AX>/2. 

YOUT ( IC1 ■(  <YC<  2  ?-YC{  1 )  )/2  .  )NQ3SX< JJ) 4( YC(2>4YC(  1 )  )/2 • 

WOHT <IC1<0SSW<  1 1 >*0SSH<JJ)*<YCC2)-YC( I >>M<XC<1>-AX>/4.0D0 
16  CONTINUE 
NINTMC 
N<4X( NCPTMM2) 

ADD  COORDINATES  ALONG  WHICH  STRESSES  HILL 
BE  AVERAOED 

ANW.QNTUJ) 

ABR* A08RCKJ  ) 

ASO*AOSD(KJ) 

SO*l  .0 

I  Ft ITNCH.EQ.2) 

IFUJ.EQ.2)  SQ< 

NET  SECTION 


SO--1 

-SO 


21 


II 


ANDO»ANVFLOAT(NAVD> 

DO  21  II*lf NAVD 
*C"ICU 

XOUT  (10*0.  ODO 

YOUT( IC) ‘BX+ANDO/2 . ♦< II“l )*ANDO 
CONTINUE 

5HEAR0UT 

ANSO*ASO/FLOAT<NAVD) 

DO  SI  11*1. NAVD 
IC*IC+1 

X0UT(IC)*SCX(BX4ANS0/2.*(II-1)XANS0> 

YOUT <  IC )  »BX 

CONTINUE 


00010160 
00010170 
00010160 
00010190 
00010200 
00010210 
00010P20 
00010230 
00010240 
00010230 
00010260 
00010270 
00010280 
00010290 
00010500 
00010310 
00010320 
00010330 
00010340 
00010330 
00010560 
00010370 
00010380 
0U010590 
00010400 
00010410 
00010420 
00010430 
00010440 
0001043U 
00010460 
00010470 
00010480 
00010490 
00010500 
00010510 
00010520 
00010530 
00010540 
00010550 
00010560 
00010570 
00010580 
00  0 1 0  59  G 
00010600 
00010610 
00010620 
00010630 
00010640 
00010630 
00010660 
00010670 
00010680 
00010690 
00010700 
00010710 
00010720 
000107  JO 
00010740 
00010750 
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BEARING 

AN8R*ABR/FL0AT( NAVD) 

DO  41  11*1, NAVD 
IC«ICA1 

XQUT( IC)*3QX( AX+ANBR/2 . +( II-l 1XANBR) 
Y0UT<  10*0. 

41  CONTINUE 

ADD  COORDINATES  ALONG  WHICH  ELEMENT  LOAD 
RECOVERY  WILL  BE  COMPUTED 


DO  3132  XIX-1 » 1 0 
IC«IC+1 


IF(KJ.EQ.l)  X0UT(IC)*XC(3)+0.1XAX 
IF( KJ  .  EQ  > 2)  XOUT(IC>*XC(1)-0.1AAX 

YOUT( tC) •( C YCC  23-YCt 13  3X2.0  DO )X0SSX(1 II )+(YC(2)+YC( 1 ) )/2  >0D0 


STRESSES  ARE  SINGULAR  AT  THETA  ■  180  DEO  OR  Y  *  0 


IFC  DABSC YOUTC IC) ) . IT . 0 . 01 )  YOUTC IC) *YOUTC IC-l 1 

CONTINUE 

CONTINUE 

NSTS«4XNAVD 

N0UT*4X( NQAUSSXM2) 

CALCULATION  OF  LOADED  HOLE.  UNLOADED  HOLE.  AND 
PLAIN  ELEMENT  STIFFNESS  MATRICIES 


THN'DARCOSC-1 . CDOl/FLOATCNOP) 

NN»IEL 

DO  410  J  *1 . NRNK 

N0PT4«5 

NT  *7 

NOLL  *1 0 

NB*32+4XNCLL 

HT«HCKJ)XNPLY(KJ) 

NCA3E* J 

NTYPE*NELTYP( IEL ) 

CALL  MOEO(HT.U.AST,J.NN,KJ,NEL,NCLL) 
CALL  MCIRCW.AST.NN.J.NCLU 
PHI «  0 . ODO 

CALL  AMA1 RXC  H, PHI >  XJ ) 

CALL  FIGE0MCH,PHI,KJ,N0PT4,NCLL) 

CALL  I MFLN( WOHT , H , NRNK , J , KJ . NN , NOPT ) 
410  CONTINUE 
£000  CONTINUE 


COMPUTE  ELEMENT  FAILURE  VALUES  BASED 
ON  MAXIMUM  FIBER  STRAIN  ALLOWABLES 


HT»HCKJ  JXHPLYCKJ ) 

IFOIELTYPUEL  )  .E9.2)  CALL  SMAXCHT,  KJ,  IEL  ) 
IFtNELTYPdEU  .E0.3)  CALL  SMAXCHT, KJ , IEL > 
1F( ISLH , EQ . 0 )  00  TO  4040 
NL “NUMLHCKJ , NCLH) 

IFCNL.EQ.l)  GO  TO  400 
DO  6041  K*2.NL 
DO  6042  Ll*l .NSLTOT 
6042  IFCNOLHCKJ.NCLH.K) . EQ . NELCONCtL , I ) )  IEL2*LL 


00010760 
00010770 
00010780 
00010790 
00010800 
00010810 
00010B2B 
00010811 
00010840 
00010830 
03010860 
00010870 
00U13880 
00010890 
00010900 
00010910 
00010920 
00010910 
00010940 
00010950 
00010960 
0301 j970 
00010980 
00010990 
OQOUOOO 
00411010 
00011020 
00011010 
00011040 
00011030 
00011060 
00011070 
00011080 
00011090 
00011100 
00011110 
00011120 
00011 1  so 

00011140 

00011150 

00011160 

00011170 

00011180 

00011190 

00011200 

00011210 

00011220 

00011210 

00011240 

00011250 

00011260 

00011270 

00011280 

00011290 

00011100 

00311110 

00011120 

00011130 

00011140 

00011150 


203 


nono 


DO  4043  1LM*1# 10 

00011360 

DO  6043  ILK*1» 10 

00011370 

4043 

ELSTFF( IEL2« ILMi 1LK)*ELSTFF(IEL* ILM» ILK) 

OOQ113BO 

DO  4044  KK«1,4 

00011390 

4044 

P5M«( IEL2*  KK)*P3MX(IEL tKK) 

00011400 

NNN*4*NAVD 

00011410 

DO  6045  IIH*1 >  NNN 

00011420 

DO  6C4S  IIK*1> 10 

00011430 

4045 

E13TS3<  1EL2<  1LM»  XLK)*ELSTSS( IEL , ILM» ILK) 

00011440 

4041 

CONTINUE 

00011450 

00  TO  400 

00011460 

4040 

IF( IS0H . EQ . 0 )  OC  TO  6046 

00011470 

nl«numoh;kj.ncoh> 

00011480 

IF(NL.EQ.l)  00  TO  400 

P001 1490 

DO  6047  K«2,NL 

00011300 

DO  6046  LL  *1 iNELTOT 

00011:10 

404S 

1  F( NOOHCKJ  *  NCOH>  !0  . EO  >  NELCOfK  LL » 1 3 )  IELZ*LL 

oooiis:;'' 

DO  6049  I'.M*1*  10 

0001133.' 

DO  6049  ILK* 1 > 13 

00011540 

4049 

FLSTFF(  IEL2i  ILM»UK)*ELSTFF(  I£L> ILM.XLK) 

00011530 

DO  6050  KK*1.4 

00011560 

6050 

PSMX<IEL2,KK)*PSMX(IEl.KK) 

00011370 

NNN*«NNAVD 

00011380 

DO  6031  ILM*1»NNN 

00011390 

DO  6051  ILK-1 . 10 

00011600 

4051 

ELSTSS( IEL2i ILM#ILK)*EL3TS3(IEL. ILM»ILK) 

00011610 

4047 

CONTINUE 

00011620 

00  TO  400 

00011630 

4044 

IF(ISPL.EO.O)  00  TO  400 

00011640 

NL  *NUMPL  < KJ • NCPL ) 

00011630 

IF(NL.cQ.l)  00  TO  400 

00011660 

DO  6033  K*2.NL 

00011670 

DO  6034  LL*1 (NELTOT 

00011680 

4034 

I F( NUPL (K J . NCPL . K ) . EQ . NEICONUI .  1 ) )  IBIS'LL 

00011690 

DO  6033  ILM*li 10 

00011700 

DO  6033  ILK-1.10 

00011710 

4035 

ELSTFFf 1EL2. ILM. ILK)*ELSTFF(IEl* ILM.  ILK) 

00011720 

DO  6034  KK*1.4 

00011730 

6034 

PSMXt 1EL2»KK)*P$MX(XEL«KK) 

00011740 

NNN*4HNAVD 

00011750 

DO  6037  UM»1,NNN 

00011760 

DO  6057  ILK-1.10 

00011770 

6037 

EL  ST 33 ( I EL 2 < 1LM, ILK) »EL3T33(  XEL* ILM»  ILK) 

00011780 

6033 

CONTINUE 

00011790 

400 

CONTINUE 

00011800 

<  420 

CONTINUE 

00011810 

00011820 

DETERMINE  CLEMENT  ARRANGEMENT  IN  TOP 

00011830 

AND  BOTTOM  PLATES 

00011840 

00011830 

DO  661  KJ«1,2 

00011860 

IFCKJ.EQ.2)  00  TO  501 

00011870 

11*1 

COlil  1880 

L2*N0P1 

00011890 

13*1 

00011900 

14-NEL1 

00011910 

00  TO  502 

00011920 

301 

Ll*NOPi+l 

00011930 

12*NOTOT 

00011940 

L3*NEL1+I 

00011950 

204 


non 


L4*NELT0T 
502  CONTINUE 
AXMIN‘l.DlO 
AYMIN'l  ,  DIO 
DO  505  I-L1.L2 

IFC AXMIN.QT .  QCOORDC  1,1))  AXMIN*GC00RD< t , 1 1 
IPCAYMIN.GT.OCOORDC I .2) )  AYMIN-CCOORDCI , 2) 

IFC  AXMIN . EQ . QCOORDC I , 1 1 . AND. AYMIN. EQ . UCOORDC 1,2))  NC*I 

505  CONTINUE 

DO  574  1*15, U 

574  I F( NEICOIK 1 , 2 ) .  29 . MORI  DC NO )  IEL*I 
NELCRDC KJ  ,1,1)  *IEL 
DO  504  1*1.25 
DO  505  J*l,25 
IFL»0 

DO  506  K*L3. 14 

506  IFOIELCCNCK,  2 ) .  EQ .  MEL CON (  NELCRDC  KJ , J , I ) ,  5) )  IEL*K 
IFCIEL.EQ.O)  CO  TO  507 
NEL0RDCKJ,J»1,1}*IEI 

505  CONTINUE 

507  CONTINUE 
IcUJ.E8.l>  NR0W1  * J 
IF( KJ . EQ . 2)  NR0W2* J 
I  EL  *0 

DO  508  L*15.L4 

508  I F(  NELCONC HELORDf  <J«i , X) • 5) .  EQ  .NELCONC 
ML, 21)  I  EL -L 

IFUEL.EO.O)  00  Tc  .10  / 

NELORDCKJ.l, I+l)*IEi 
504  CONTINUE 

509  CONTINUE 
IF(KJ.EQ.l)  NCOL1 *1 
IFC KJ . EQ .2)  NCOL2*I 

681  CONTINUE 

COMPUTE  NODAL  DEOREES  OF  FREEDOM 
IC*0 

DO  540  KJ*1 , 2 
IFCKJ.EQ.l)  NR*NR0W1 
IFCKJ.F8.1)  NC'NCOL  1 
IFCKJ.EQ.2)  NR*NRu!'<2 
IFCKJ.EQ.D  NC *NCOL 2 
NELDI5CNEL0Rn(KJ,l.l),l,t)«IC*l 
NEL DISC NELORDCKJ. 1,11,1, 2 )«IC+2 
NEl DISC  NELORDC KJ, 1 . 1 ) , 2, 1 ) »IC^5 
NEL DISC NELORDC KJ, 1 , 1 ), 2,2 )*IC+4 
IC*IC+4 

IFCNR.EQ.l)  00  TO  549 
DO  541  I *2. NR 

NELOZSC  NCLOROCKJ, I • 1 > » 1 • 1 )*NELOISCNELORD(KJ ,1*1 

*.11.2,1) 

N  E  L  DISC NELORPCKJ, I , 1 ) , 1 , 2 ) *NELDI5(NEL0RD( KJ , 1*1 

*.11.2.21 

MEL  DISC  NELORDC KJ,I,1).2,1)«IC  +  1 
MEL  DISC  NELORDCKJ , I # 1 1 , 2,2)*IC+2 
IC«  IC+2 
541  CONTINUE 
549  CONTINUE 

DO  542  1-1 . NC 


00011960 
00011970 
00011980 
00011990 
00012000 
000120*  * 
!>  J012Q20 
00012050 
00012040 
00012050 
00012060 
00012070 
00012080 
00012090 
00012100 
00012110 
00012120 
00012150 
00012140 
00012150 
00012160 
00012170 
00012180 
00012190 
00012200 
00012210 
00012220 
00012250 
00012240 
00012250 
00012260 
00012270 
00012280 
00012290 
00012500 
00012210 
00012520 
00012550 
00012540 
00012350 
00017360 
00012370 
00012380 
00012390 
00012400 
00012410 
00012420 
000124 SO 
00012440 
00012450 
00012460 
00012470 
00012480 
00012490 
00012500 
00012510 
00012520 
00012530 
00012540 
C  00 12550 


i 


I 
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DO  345  J»1,NR 

XFt 1 . EQ. 1 5  00  TO  544 

*  NELDISt  NELORDt KJ, J . I ) , l » 1 5*NELDISCNEL0RDt  . 

KKJ.J, 1-15.4. 15 

NELDISt NELORDtKJ, J, I )« 1 >2) *NELDI3(HFL0RDt 
*KJ,J,I-1>,«,2) 

NEL  DISv  NELORDt  KJ, J , I ) , 2, 1 )»NELDI3(HtL0R0( 

HKJ , J , 1-15,5,1)  ..... 

NELDISt  NELO'ID'  KJ.J,  X  5,2.2  )*NELDXSt  NELORDt 
*KJ,  J.t-1) 

544  CONTINUE 
IFtJ.EQ.l)  00  TO  561 

MELDI5CNELORDtKJ,J,I5,4»l),,NElDX3(NELORDtKJ»J-l»X5»3,l) 
NELDISt  NELORDtKJ, J, X ) » 4, 2)*NELDX3t NELORDtKJ, J-X , I) , 5, 2) 
00  TO  562 
C0N'T  ’NUE 

NELDISt NELORDtKJ, J , 1 5 ,4, l )>ZC+1 
NELDXSt NELORDtKJ, J, I ),4,2)«IC*2 
IC«IC+2 

562  CONTINUE  . 

IF (NELTYPt NELORDtKJ , J , X ) 5 .NE.2)  00  TO  345 
NELDISt  NEI.ORDt  KJ,  J  ,I5.5>1)*7C+1 
NELDXStNELORDtKJ, J,  1 5,5,2)*XC+2 
IC* IC+2 

545  CONTINUE 

NELDISt NELORDtKJ. J, 1 5,3.1 )«IC+1 
NELDXStNELORDtKJ, J, 15,3.2 )aXC+2 
IC»IC+2 
545  CONTINUE 
542  CONTINUE 
540  CONTINUE 


561 


DETERMINE  BOUNDARY  NODES  AND  VALUES 


NKD»2MtNGPl+NGP2) 
DO  165  1*1.100 
163  PBCf 1 5*0 . 


DISTRIBUTE  APPLIED  LOAD 


178 

1119 


ATOT  *OCOORDt  NELCNAt  NELORDt 1 , NR0W1 ,15,35,2) 
k-OCCORDC NELCNAt NELORDt 1, 1,15,25,25 
APL«APP/ATOT 
SG*1 . 0 

IPCLTNCM.EQ.15  30—1.0 
DO  178  I»1,NR0H1 

A  I* OCOORDt NELCNAt NELORDt 1,1, 15,3), 2) 
x-OCOORDt NELCNAt NELORDt 1, 1,15.25,25 
Ml* NELDISt  NELORDt 1,1,15,1,1) 

M2»NELDISt NELORDt 1, 1,15,2,15 

PBCtMl )*PBCf Ml )+50X< 0 . 5*DABSt APLHAI  5  5 

PBC(M25»PBCtM25+SO*t  0 .3*DABS(APL«AX 5  5 

CONTINUE 

CONTINUE 


ASSEMBLE  OLOBAL  STIFFNESS  MATRIX 


DO  220  N1*1,NELT0T 
IR*  5 

IF(NELTYr'Nl) .NE.2)  IR«4 


00012560 

00012370 

00012580 

00012590 

00012600 

00012610 

00012620 

00012650 

00012640 

00012610 

00012660 

00012670 

00012680 

00012690 

00012700 

00012710 

00012720 

00012750 

00012740 

00012750 

00012760 

00012770 

00012780 

1)0012790 

00012800 

00012810 

00012820 

00012850 

00012840 

00012850 

00012860 

00012870 

00012880 

00012890 

00012900 

00012910 

00012920 

00012950 

00012940 

00012930 

00012960 

00012970 

00012980 

00012990 

00015000 

00015010 

00015020 

00015050 

00015040 

00015050 

00015060 

00015070 

00013080 

00013090 

00013100 

00013110 

00013120 

00013150 

00013140 

00015150 


I  , 

•i 


* 
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TOP  AMD  BOTTOM  PLATF  LOADED  HOLE  AP« 

UNLOADED  HOLE  ELEMENTS 

IC1  »0 

DO  **23  N2«1,IR 
DO  423  N3«l,2 
M1»NELDIS(N1,N2.N3) 

ICJMC1+1 

IC2*0 

DO  423  N4"l » XR 
DO  423  N5«1.2 
M2BNELDIS(N1,N4,N5) 

IC2«IC2+1 

0L3TFFCMI.M2>BQLSTFF(M1,M2)+ELSTFF(N1,IC1,IC2) 
423  CONTINUE 
229  CONTINUE 

ADD  EFFECTIVE  FASTENER  ELEMENTS 

00  260  I*’.,NUMF 
DO  1541  J-I.H7LI 

1561  IF(NELFAS( I i 2) . EQ . NELCONC i i 6 1 )  N>J 
N1«IIELDIS(N*3.1) 

N2«NCLDI5(Ni3»2) 

NL»NEL1+1 

DO  1562  JBNL  »NELTOT 

1362  IF<NELFASCX,3).EQ.NELC0N<J,4>)  N»J 
NS«NELDIS( N.3. 1 ) 

N4«NELDI3(Ni3»2) 

OLSTFFI N1 , Nl) "OL3TFF< HI . N1 )+RDSTFFt 1,1) 
OL3TFF<N1,N3)BOL3TFF<N1.N3)-RD3TPP<I,1) 
OLSTFFOI2»N2)*OLSTFF(N2,N2)+RDSTFPI 1,2) 
OLSTFF(N2,M)BOLSTFF<N2,N4)-RDSTPF(I,2) 

0L5TFF( N3,N3)*OLSTFF< N3,N3)+RD3TFPC 1,1) 
OLSTFF(N3,N1)»OL3TFF(N3,N1)>RDSTFF<X,1)  ' 
OL3TFF(H4,N4)»OLSTFF( N4,N4)+RDSTFF{  1,2) 
OLSTFF(N4,N2)«OLSTFF(N4,N2)-RDSTFF{I,2) 

260  CONTINUE 

NP«2*((NOPl*NOP2) 

GLOBAL  BOUNDARY  CONDITIONS 


DO  415  1*1, MP 
RHSt I ) *PBC( X ) 
415  CONTINUE 


IC*1 

NZE!\0(IC)*NELDIS(NEL0RD(2, 1 ,  NCQL2),4,1) 

DO  437  I«l,NROM2 

IC«1C+1 

NZEROC IC) *NELDIS( NELORDC 2, 1 , NC0L2), 3, 1 ) 
437  CONTINUE 
IC«IC+1 

NZ£R0(  IC)«NELDI3(NEL0RD(  2, 1  ,NC0L2),  4,2) 
HUMZ'IC 

RESTORE  REDUCED  STIFFNESS  MATRIX 
ICMO 


00013160 

00013170 

00013180 

00013190 

00013000 

00013218 

00013220 

00013230 

00013240 

00012230 

00013260 

00013270 

00013280 

00013290 

00013300 

00013310 

00013320 

00013330 

00013340 

00013330 

001,13360 

00013370 

00013380 

00013390 

00013400 

00013410 

00013420 

00013430 

00013440 

00013450 

00013460 

00013470 

00013480 

00013490 

00013500 

00013510 

00013320 

00013530 

00013540 

00013530 

00013560 

000x3570 

00013580 

00013590 

00013600 

00013610 

00013620 

00013630 

00013640 

00013650 

00013660 

00013670 

00013680 

00013690 

00013700 

00013710 

00013720 

00013730 

00013740 

00013750 
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DO  655  I“1 .NP 
DO  665  K*1 iHUMZ 
IF(I , EQ.NZERO(K) )  00  TO  655 
665  CONTINUE 
ICR*ICR+1 
RHS( ICR7*RHS(X) 

ICC«0 

DO  670  J*1.NP 
DO  660  K-l.NUMZ 
I  Ft  J  .  EQ.  NZERO(O)  00  TO  670 
680  CONTINUE 
1CC«ICC*1 

ASOMt ICR. 1CC)*Q13TFF(I.J) 

670  CONTINUE 
655  CONTINUE 
NP*NP-NUMZ 
685  CONTINUE 

DO  6')  3  1*1. NP 
DO  675  J*  1 . NP 
695  OlSTFF(I.J) *ASQM( I . J ) 

APPIYINO  4UASSIAN  ELIMINATION  TO  THE 
MATRIX  OF  COEFFICIENTS 

DO  Z001  1*1. NP 
IR*I 

2062  IFt  DABSCASQMC IR.I)).OT.1.0D-10)  00  TO  2041 
IR*IR+1 

lF(IR.OT.NP)  00  TO  2001 
00  TO  2042 
2041  N N*IR+1 

DO  2002  L*NN,NP 

1F(DAB3(A3QM(L»Z)).0T . l.D-10)  00  TO  2009 
ASQMC  L  > I ) *0 . 

00  TO  2002 

2009  CF*-ASQM( IR. I V ASQMC L . I ) 

CF1*1 . 000 

IF(DABSCCF).OT.l.O)  CF1*1.0D0/CF 
IF(DABSCCF).OT.l.O)  CF«1.0D0 
DO  2003  J*I.NP 

A50M(L.J)*AS0M(L. J)*CF+ASQM<IR,J)*CF1 
IF(DABS(ASQM(L>J)).LT.1.0~10)  ASQM( l . J ) *0 . 0 
2003  CONTINUE 

RHS(  L  )  «RHS<  L  JBCF+RHSl.  I  >*CF1 
2002  CONTINUE 
2001  CONTINUE 


BACK  SUBSTITUTION 

DO  2011  1*1. NP 
l«MP*l-I 
5UM*0 , 

I  F(  ASQMd . L) . EQ . 0 . )  QO  TO  2112 
N*L  +  1 

IF(N.OT.NP)  00  TO  2013 
DO  2013  J«N.NP 
SUM* SUM- ASQMC l . J)MANR(J) 

2013  CONTINUE 

ANR(L)*<PHSCL)+SUM)/ASQMa,l) 


00013760 

00013770 

00 Q1 3780 

00013790 

00013800 

00013810 

00013820 

00013831) 

00013840 

00013350 

00013860 

00013870 

00013880 

00013890 

00013900 

00013910 

00013920 

00013930 

00013940 

00013950 

00013960 

00013970 

00013980 

00013990 

00014000 

00014010 

00014020 

00014030 

oooro4o 

00014050 

00014060 

00014070 

00014080 

00014090 

00014100 

00014110 

00014120 

00016130 

00014140 

00014150 

00014160 

00014170 

00014180 

00014190 

U3Q14200 

00014210 

00014220 

00014230 

00014240 

00014250 

00014260 

00014270 

00014280 

00014290 

00014300 

00014310 

00014320 

00014330 

00014340 

00014350 


GO  TO  2011 
2112  CONTINUE 
AMRtU’O. 

2011  CONTINUE 
C 

C  CALCULATE  NODAL  LOADS 
C 

ICO 

DO  44  1*1. NRD 
DO  54  J»1,NUMZ 
IFd.NE.MZEROUJ)  00  TO  34 
ANR2( I ) *0 . GDO 
00  TO  44 
54  CONTINUE 

ANR2(I>*ANRdC> 

44  CONTINUE 
HRITEC6, J7X2) 

3712  FORMAT!/, 10X, 'ELEMENT  FORCES'.//) 

DO  500  Kal.HELTOf 
MIDsNELCONIK.l) 

MR  I TE( 6 . 3947 )  MID 
8947  FORMAT!/, •  ELEMENT  ID', IS,//, 

H6X. *6RTD',9X, 'FX'»9X. 'FY',/) 

IR«5 
KL  SK 

IFUL.GT.NE'  )  kCK-HEl 
IF(NELTYP(K) . NE.2'  IR=4 
DO  310  1*1, XR 
5UMC0. 

5UMV*  0 . 

N»2*I-1 
DO  520  J-1.1R 
N1*NEIDIS(K. J.l) 

N2-NELDISOC.J.2) 

SUMU*3UMU+ELSTFF!K,N, (flNj-1) )*ANR2(Nl)+ 

KELSTFFOC.N, !2MJ))MANR2(N2) 

520  CONTINUE 
N*2*I 

DO  530  J«1.IR 
Nl»NELDIStK.;,l) 

N2 *MEl DI SC  K » J , 2 ) 

:,UMV»SUMV  +  ELSTFF(K.N1(2t(J-inNANR2tNl)  + 

*E13TFF!K.M. C2*J ) )*ANR2(N2> 

530  CONTINUE 
C 

C  STORE  ELEMENT  LOADS  FOR  CHECK  ON  ELEMENT 

C  LOAD  RECOVERY 

C 

IFCK.LE.NELl.AND.d.EO.l  .0R.I.E0.2))  ELL  OADt  K,  I  )*SUMU 
IFCK.OT.NELl.AND.d.EO.S.OR.I.EO.A))  CL10AD<K,I-2)»SUMU 
NID«NElC0N(K,I*1 ) 

WRIT E(6 . 3239 )  NID.SUMU, SUMV 
3239  FORMAT! 2X . 18 . SX , 2 ( D9 . 3. 2X) ) 

510  CONTINUE 
500  CONTINUE 
C 

C  COMPUTE  ELEMENT  FAILURE  LOADS  AND  DETERMINE 
C  CRITICAL  ELEMENT  TO  CALCULATE  JOINT  FAILURE 

C  LOAD 


00014360 
00014370 
00014330 
00014390 
00014400 
00014410 
00014420 
00014434 
00014440 
00014430 
00014460 
00014470 
00014480 
00014490 
00014500 
00014510 
00014520 
00014530 
00014540 
00014550 
00014560 
00014570 
00014580 
00014590 
00014600 
00014610 
00014620 
00014630 
00014644 
00014650 
00014660 
00014670 
00014680 
00014690 
000*47  00 
00014710 
00014/20 
00014730 
00014740 
00014730 
00014760 
00014770 
00014730 
00014790 
30014300 
00014810 
00014820 
00014830 
00014840 
00014850 
000)4860 
00014870 
00014880 
00014890 
00014900 
00014910 
00014920 
00014930 
00014940 
C0014950 


nonon  r»  ooo 


C 

CALL  FCR1T!  APP >  NEL l ,NEL2,NDAM,  IN.  LTNCM,  NAVD) 
FAILV*DABS!ELFAIL( IN, NDAM) ) 

IF! N5DLS . EQ  ,  2)  FAILV*2 , MfAZLV 
NIDaNELCQNI  IN*  J. ) 

WRITEC6.5555)  NID.FAUV 

5335  FORMAT!///,  •  FAILURE  IS  PREDICTED  TO  OCCUR  IN  ELEMENT',/* 
*'  NUMBER ' » 1 3, •  AT  AN  APPLIED  JOINT  LOAD  VALUE  ',/, 

M*  OF  ' , DI4 . 7 , •  LBS',/) 

IF(NDAM.EQ.l)  WRITE!6 , 5336 ) 

IF(ND-'M.EQ.Z)  WRITE(6 , 3337) 

IF! NDAM. EQ .  5)  WRITER.  5558) 

3554  FORMAT! «  THE  PREDICTED  FAILURE  MODE  IS  NET  SECTION*) 

5557  FORMAT* *  THE  PREDICTED  FAILURE  MODE  IS  SHEAR-OUT  ') 

5558  FORMAT!*  THE  PREDICTED  FAILURE  MODE  IS  BEARING*) 

STOP 
END 


SUBROUTINE  MOEOIHT.W. AST, J, IN, KJ, NEL, NCI) 

IMPLICIT  REALMS! A-H.O-Z) 

DIMENSION  A1A! A) , A2A! 4 ) 

DIMENSION  XB(200.‘  >YB!200), A1!200),A2!2Q0) 
DIMENSION  NELTYPI50),  THTAI200, 

DIMENSION  XC( 3 ) , YC! 3) 

COMMON/CMTI/XB, YB> Al,  A2,THTA 
COMMON/XCYC/ YC , YC 
COMMON/NTP/UELTYP 

DETERMINE  EXTERIOR  COLLOCATION  POINTS  AND 
STRESS  BOUNDARY  CONDITIONS  CORRESPONDING 
TO  THE  NATURAL  LOAD  CASES 

MCS“5 

IF! NELTYPC IM) . NE.2)  NC3«S 
JK«0 

DO  13  I«l,4 
A1ACI)*0. 

15  A2A!I)«0. 

A  * ( YC t  2 ) -YC! 1 ) )MHT 
B*!XCt2)-XC(S))»HT 
l F! J . EQ  .  1 )  A1A! J>*1 .ODO/A 

I F! J . EQ . 1 . AND. NELTYP! IN) . NE . 2)  A1A! l)»l . ODO/A 
IFIJ.EQ.2)  AJA!2)»1.0DO/D 

IF! J.EQ. 2. AND. NELTYP! IN) .NE.2)  AIA!4)*I . ODO/B 
IFCJ.UT.2.AND. NELTYP! IN) .NE.2)  00  TO  33 
I F( J . EQ . 3)  Ai A( 1 >•! . ODO/A 
IFU.EQ.4)  Al A! 4 ) *  1 .  0/B 
IF(J.EQ.l.OR.J.EQ.S)  AST»I. ODO/A 
IF! J.EQ. 2. OR. J.EQ. A)  AST«1. ODO/B 
55  CONTINUE 

W=XC!3)-XC!2) 

I F! J . EQ . 1 . OR . J . EQ . 3 . OR . J . EQ . 4 )  W«YC( 2) -YC! 1 ) 
DO  10  W.4 

x*xcm-xc!i+n 

Y*YC! I  +  1 ) -YC! I ) 

IF! X. EQ . 0 . )  X*l.D-6 
IFCY.EQ.O, )  Yax  . D-4 


00014940 

0001A970 

00014980 

00014990 

00015000 

00015010 

00015020 

00015030 

00015040 

00015050 

00015060 

00015070 

00015080 

00015090 

00015100 

00015110 

00015120 

00015130 

00015140 

00015150 

00015160 

00015170 

00015180 

00015190 

00015200 

00015210 

00015220 

00015230 

00013240 

0001.5250 

000x3260 

00013270 

00015280 

00015290 

00015300 

00015310 

00015320 

00015330 

00015340 

00013350 

00015360 

03015370 

00015380 

0001539C 

00015400 

00015410 

C001S420 

00015430 

00015440 

0001545C 

00015460 

00015470 

00015480 

C0015490 

00015500 

00015510 

00015520 

00015530 

00015540 

00015550 


V.- 
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TH*DATAN2CX,Y> 

TH  =  THlUn./rARC0S<-0.1Dl) 

DX°(XC<  IU)-:<CCI))/(NCU1) 

dy*<yc(  i*d -rca  ))/(nciu) 

DO  20  Iin.MCl 
JK= JK+1 

IF(I  EO.l.OR.I.EQ.3)  00  TO  23 
YB( JK) »YC( I > 
X6(JK)*XCCi:+DX*(II+.5) 
IFCIt.EQ.l)  XBtJIO*XCtI)+(DX/2.) 
GO  TO  24 

23  YB< JK)*YCCl)+DY*<II+.5> 

IF( II. EQ.il  YB<JX)*YC(I)  +  <DY/2.) 
X8( JK)  =XC( X ) 

24  fHTAt  JK ) *TH 
Al(JiO=AlA(I) 

A2C  JK) 3 A2A( I ) 


00015560 

00015570 

00015500 

00015500 

00015600 

00015610 

00015620 

00015630 

00015640 

00015650 

00015660 

00015670 

00015680 

30015600 

00015700 

00015710 

00015720 


lPU.EQ.NCS.AMD.d.EQ.l.OR.i.ui.3))  Alt JK)»<?mYB( JK)/W>k< 3 .OOO/'A)  C0  0157  30 


1  Ft  J.E9.(MC3+l>  .AND.  (I . EQ.2.UR. I .EQ.4 ) )  A1(JA>»<2MXB(  JK)/W)*'.3. 
¥00/3) 


00015740 

00015750 


IF^J.EO. tdtS+2) .AND.CI.EQ.1.QR.I.EQ.3))  A2(  JK)«2. 0/DSQRTUXXZ+BXNEQOOl  5?6C 


1 F  C  J .  EQ . C  NcS+2  5 .AND. (I . EO • 2 . OR . 1 .EQ.43) 
x*2) 

CONTINUE 

CONTINUE 

RETURN 

END 


SUBROUTINE  MCIR(W» AST , I . J .NCL) 

IMPLICIT  kEAL*8(A-H,0-Z; 

DIMENSION  XB(2005.YB(20C),A1(200),A2(2CO) 

DIMENSION  THTAt 200) , NELTYPf  50) 

CnMM0N/CMYl/XB,YB.Al.A2,THTA 

COMMON/HTP/NELTYP 

CCMMO'I/ELP/AX.BX 

ccn=-i ,oro 

RAD=DARCUSCC0N)/180. 

BSTr^DABSC  (2.KW*ASTi/(DARC03CC0N)*AX)) 
IFtNClTYPtl) .NE.2)  BSTR*O.JDO 
IFCNELTYPU) .EQ.2.AND. J.0T.5)  BSTR'O.ODU 
■ C*4‘ NCL 

DETERMINE  INTERIOR  COLLOCATION  POINTS  AND 
STRESS  tOUNDARY  CONDITIONS 

HB0«S2 
NBIs'JBD/  4 
DO  1)  K  =  1.4 

CR  3  <  <  —  1  )¥DARCOS(CON)/2. 

DO  20  KI*1.NBI 
IC*I01 

TH1NC:*(  DARC03<CON)/2.  )/FLOAT(NBI) 
41(10-0, 

A2  <  IC)  -0, 

THINC2-THIMC/2. 

Til-  .rtlNC2  +  UI-l>*THINC»CR 
IC) s AX»DCOS(TM) 


Q001577  L 

A2tJ)C>*-2.D0/D5QRT(AK*2+8*03 115730 

00  515790 
0CH5A00 
00015810 
00015820 
0OC15830 
00015840 
00015850 
00015860 
00015870 
00015800 

))  00015890 

00015900 

00015910 

00015920 

00015930 

00015940 

00015950 

00015960 

00015970 

J  00015980 

00015990 

00016000 

9D  00016010 

00016020 

00016030 

00016040 

00016050 

00016060 

00016070 

00016080 

00016090 

00016100 

00016110 

00016120 

00016130 

00016140 

03016150 


i 


■  »  i 
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nnn  f.  fiOO 


YBUC)«AX*DSIN(TH) 

THTA(IC)=TH/RAD 
TF<J,0T.4>  00  TO  20 
IF<NELTYPCI).HG.2)  00  TO  40 
IF( J .EQ.l .AND. (K.EQ.l .0R.K.EQ.4))  A1(XC)> 
M-8STRxDAB$CDC0S<TH)) 
IF(J.EQ.2.AND.(K,EQ.J.0R.K.E9.4))  A1CIC)» 
*-BSTRXDADS( DSIN( TH)  ) 

IF< 1 . E9. 3 . AND. (K. EU.2.0R.K.EQ.3))  A1(XC>« 
*-BiTRxDAB3<  DCOS(TH) ) 
IF(J.E<3.4,AND.(K.E9.1.0R.K.EQ.2))  A1(IC>» 
l-BSTRxCAbS( DSIN(TH)) 

40  CONTINUE 
20  CONTINUE 
10  CONTINUE 
RETURN 
END 


SUBROUTINE  INFlti(  WOHT ,  H,  NRNK»  J ,  KJ  >  I ,  NQPT) 
IMPLICIT  REAL«8<A-H,0-2) 

DIMENSION  ELSTFF(5Q. 10,13 ) #  WGHT ( 500) > MAC  150 ) 
DIMENSION  ELSTL S<50>  50 ,10) ,S?SV(S0),STSA(5D>10) 
DIMENSION  AN( 1 0 , 7 ) ,  UV0UT ( 20 ) 

DIMENSION  PH 1(3, 7, 400) , STEMP(10 • lfl), A0(10, 3) 
DIMENSION  FINF<in.l0>.SINF(10.10>,AIMV<3,3) 
DIMENSION  APSX( 500 ) , APSY(SOO) > APSXY1300) 
DIMENSION  H(2) , XC( 5 ) , YC( 5) , NPLY<2 J 
DIMENSION  ICCIO) 

DIMENSION  A(  10 . 10) , ATEMP2C 10, 10) 

COMMON/ UV/UVOUT 
COMMON/XCYC/XC.YC 
CONMON/ELP/AX,  BX ,  NOUT ,  NSTS 
COMMON/ ELS/ EL STFF. ELSTS5 
COMMON/STS/STSV 
COMMON/! NFl/APSX.APSY.APSXY 
COMMON/I.  YP/NPLY 
COMMON/ IMV/AINV 

COMPUTE  ELEMENT  STIFFNESS  COEFFICIENTS 

IF(J.GT.l)  -jO  TO  200 
DO  7  111*1,10 
7  IC(III)*III 
DO  100  1111*1 ,3 
DO  100  I M2*l ,  7 
DO  100  IN 5*1,400 
100  PHK INI, IN2, lN5)f0. ODD 
00  444  Nl«l,10 
AO(  N1  ■  1 )  *0  .  ('DO 
AOt  HI . 2 ) *  0 . ODO 
A0(N1 , 2)*0 .ODD 
DO  444  NC*1 , 7 
444  AN<H1,N2)*0. ODO 
DO  m  I N 1  *  1 . 1 0 
DO  1)0  ;N2*1.10 
SINF( INI. IN2 ) -0 . 0D0 
STEMPC IM1 . INS) *0 . 0D0 


00014160 
00016170 
00016180 
00016190 
00016200 
00016210 
00016220 
00016230 
00016240 
00016250 
00016260 
00016270 
00016280 
00016290 
00016300 
00016310 
00016320 
00016330 
00016340 
00016350 
00016360 
00916370 
00016380 
00016390 
00016400 
00016410 
00016420 
00016430 
00016440 
00016450 
00016460 
00016470 
00016480 
00016490 
00016500 
00G16510 
00016520 
00016530 
00016540 
00016550 
00016560 
00016570 
00016580 
000. 6590 
OOOI06OO 
00016610 
000)6620 
00016650 
00016640 
00016650 
0C016660 
00016C70 
00016680 
00016690 
00016700 
000’6710 
00016720 
00C16730 
00016740 
00016750 
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oooo 


110  FINF(IMl,IN2)*0.0DQ 
200  CONTINUE 

STRESSES  AND  DISPLACEMENTS  ARE  STORED 
FOR  EACH  LOAD  CASE 

DO  2107  KU«1.8 
2107  ANCKIK i J )*UVOUT(KlK) 

IF(NRNK.E9.5>  00  TO  2221 
tFIJ.EQ.l)  UVO(lT{  5)aUV0UT(9) 
IFU.EO.l)  U'/OUT(7)*UVOUT<9) 

If (J . £9.2)  UVOUTC2)*UVDUT( 16) 
IFCJ.E9.2)  UVOUTCa)«UVOUT(U) 
IF(J.EO.J)  UVQUTC1 )sUV0UT<lS) 
IFCJ.E9.S)  UV0UT(3)=UV0UT<16) 

IFC  J . 29 . 4  >  UV0UT(4)*UV0UT< 12) 
t  r  C  J  .  £ ) .  4.)  UVQUTCe  ) *UVCUT< 12) 

2221  CONTINUE 

I F C NRNK . EQ . 7 . AND . J . I T . S)  00  TO  371 
AN(9iJ)*(UVQUY(9)4UV0UT(13))/2. 

ANUO.  J)*(UV0UTU2)+UV0UT<16))/2. 

GO  TO  J72 

171  AN(9.J>«UV0UT(7+2XJ) 
AN(10.J)*UVOUTC8+2*J) 

J72  CONTINUE 

DO  15  I S » 1 iNSTS 
15  ST3Aas.J)«STnV(IS) 

DO  10  £S*1 i NGPT 

pHia.j,:s)«APsxcis) 

10  CONTINUE 

DC  20  IS*1.N0PT 
PHI(2.J.IS)*APSY(ISJ 
20  CONTINUE 

DO  .50  13*1. NGPT 
PHIC  5 , J . IS ) *APSXY( IS ) 

30  CONTINUE 

IFCJ.LT.MPNK)  RETURN 

INTEGRATION  0*  STRESSES 

DO  1010  111*1,10 
1010  CONTINUE 
MTR*NRNK*J 
DO  45  IK  =  1 . NTR 
UO  ''1  JK*1 , NTR 
45  FI NF ( T K , JK ) *0 . 

H1«H''’J)KNPLY(KJ) 

DQ  50  L I “ 1 , NGPT 
DO  4  0  IJ*1 ,3 
DO  40  KI *  1 , NRNK 
SI'M’O  . 

DO  70  U»l,3 

SSM’3UM+HlxAINV(L.I.IL)*PHI(U,KI,LI) 
70  CONTINUE 

ST  E’'0  C L  J  ,  K I )  -SUM 
60  CONTINUE 

DO  SO  IK* 1 . NRNK 
DO  SO  LJsl.NRNt' 

SUM=0 . 

DQ  90  II*’  .  3 


00016760 
00016770 
00016780 
00016790 
00016809 
00016810 
00016620 
00016830 
00016440 
00016450 
00016850 
00016370 
00016380 
00016890 
00016900 
00016910 
00016920 
00016930 
00016940 
00016950 
00016960 
00016970 
00016980 
00016990 
00017000 
00017010 
00017020 
00017030 
00017040 
00017050 
00017060 
00017  07  0 
00017030 
0001 7  0°0 
00017100 
00017110 
00017120 
0J017133 
000171-3 
00017150 
00017160 
00017170 
00017180 
OOOW190 
00017200 
00017210 
00017220 
00017230 
00017240 
00017250 
00017240 
00017210 
00017:10 
00017270 
00017300 
00017310 
00017320 
00017330 
0  0 0  i  7  J4 0 
00017353 
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SUMnSUM*-PNICIL,lK,tX)*STEMP<II..U> 

90  CONTINUE 

FINFC IK, L J) *FINF( LK» l J)+SUM*WGHT<  LI ) 

80  CONTINUE 

50  CONTINUE 

DO  51  1 1 1*1  * NRNK 
DO  31  JJJ*1»NRNK 

51  STEMPC I II ,  J J J ) *( FINFC III, JJJ l+FINFI JJJ«III))/2.0DO 
DO  52  111*1, NRNK 

DO  52  J J J *1 , NRNK 

52  FIHF(IIi,JJJ) *STEMP( 1 1 1 ,  J  J  J ) 

CALL  IINV2FI PINF,  N.I.JK,  1 0,S1NF,  4#WK,  IER) 

DO  410  IA*1 , NTR 

A0<IA.n«0.5+0.5*C-1.0)miA+l> 

A0tIA.2)*0.5*0.5*C-;.0>*»<IA> 

410  A0( I  A, 3 ) *0 . ODO 

AOU  ,3)*DABS<YC<  '*)) 

A0C2.3)*-DA8S<XC£4)> 

AOCi. 3>*-DABS<YC(3)  > 

A0<4,3)*-DAB5(XC(j)  ) 

AI)<5.3)«-DABS<YC<2)) 

AQ(6i3)~0ABS(XC(2) 3 
A0( 7 , 3 ) *  OABSI YCt 1 ) ) 

A0C8.3)*DABS<XCC1)) 

DO  420  KK*1 • NTR 
DO  420  Ll*l , NRNK 
SUM*0 . ODO 
DO  430  J J*1 , NRNK 

4  30  SUM*$UM+AN(  KK,JJ)*5INFCJJ,LL) 

4i0  STEMP(KK.LL)*SUM 
DO  440  KK*1 , NTR 
Nl«MTR-2 

DO  440  J J *N1 , NTR 
'.40  S*  £MP(  KK.JJ)*AC(KK,  JJ-NRNK) 

CAU  IINvSF<STEMP,NTR,10,FINP,4,*4IC,K;O 

DO  450  11*1. NRNK 

DO  454  JJ*1 .NTR 

OU, "1*0.  ODO 

20  460  KK»l . HRMK 

4-0  5'JM*5UI1*3INF(  ri.KKl^FINFIK1  J  J  ) 

<*  50  STEMPt  1 1 » JJ  )  *5UM 
DO  470  11*1. NTR 
DO  470  JJH.UTR 
jUM*0  ODO 
DO  480  KK» 1 , NRNK 

480  3UK5DUMfFIHF<Kt,II>*$TfcW»CICIC.  JJ> 
El,JTFF<I.lI.JJ)*SUM 
A<II.J.n*SUH 
470  CONTINUE 

DO  550  11*1, NRNK 
DC  550  J J* 1 , NTR 
CUM*  0 . 0  DO 
DC  560  KK= 1 , NRNK 

56  0  3l'M*5UKfSIHF(II.KK)»FIMF{KK,  Jl) 

550  crr.f*pt 1 1 . jj ) *r,uM 

DO  570  11*1. NST3 
DO  57  0  J J  =  1  , NTR 
O'JM=O.0D3 
DO  580  K <  = 1 .NRNK 

58  0  5UM*"”'.A  ( 1 1 ,  KK  )  *CTEMP( KK,  J  J } 


00017360 

00017370 

00017380 

00017390 

00017400 

00017410 

00017420 

00017430 

90U17440 

0001*450 

00017460 

00017470 

00017430 

00017490 

oooi’.roo 

n017510 

20017520 

00017580 

00017540 

00017550 

00017560 

00017570 

00017580 

00017590 

00017600 

00017610 

00017*20 

00017630 

00017640 

00017550 

00017&6d 

00017670 

00017630 

00017690 

00017700 

00017710 

09017720 

01)017730 

00017740 

00017750 

00017760 

00017770 

0001*780 

00017790 

00017800 

00017810 

00017820 

00017830 

00017840 

00017850 

00017860 

00017870 

00017S80 

00017890 

00017900 

00917910 

00017920 

00017930 

00017940 

00017950 


IS 


c 

c 

c 


c 

c 

c 

c 


tlil  j  I 

RETURN 

END 


(1,1 1..'  1 1  =SUM 


SUBROUTINE  5MAX(HT,KJ.I> 

IMPLICIT  REAL»8<A-H,0-2> 

DIMENSION  AINU (3,3) , STULTC 3 ,2) » AVNC 3) 

DIMENSION  NVC  3 ) 

DIMENSION  P OMXl 50 , A ) i STM( 3) *CM( 2 ) 

DIMENSION  NPLY( 2) , MUMPLY( 21 , ANG( 5>2)>IPLY(1C0,2) 

DIMENSION  E1(2),E2 <2>, 012(2), VI2(2),V21(2) 

COMMCN/MOD/E1. E2.012. VI2.V21 

COMMDN/LYP/HPIY.NUMPIY.A^O.IPLY 

CQMM0N/3TMT/STM. CM 

COMMON/ I NV/AINV 

COMMON/SMX/PSMX 

CCMMI/I/STN/  ’  T N L T 

DATA  CMC/1 O' / 

"( CM(  T»J ) .  E)  .CMC)  CO  TO  222 
P:MX(I,l)*CTM(l) 

PSMX(I,2)«STMC.’> 

P3MX(I,3)*5TM(i> 

P3MX5 I ,9)»STM(2) 

RETURN 

222  CONTINUE 

COMPUTE  LAMINATE  FAILURE  LOADS  BASED  OH  MAXIMUM 
FIBER  STRAINS  FOR  EACH  FAILURE  MODE 

do  mo  xn.s 
00  10  11*1,3 
NV(II)»0 

10  AVN( II ) «0 . 000 

IFU.SO.i)  NV( 1 )  *  1 
IHK.F9.2)  NV 1 1 ) * *1 
I  '■  <  <  .  eg  .  3 1  NV(3)*1 
SO  15  11=1,3 
uO  1  5  J  J  *  1 ,  , 

A -•!(  IIUAVtKII  J+AINVC II ,  v'J)XNV(JJ) 

■ r;  :v;::nue 

.‘i:’=NUMPLY(KJ> 

S M X  *  >J  .  ODO 

-.\O*0ARCO5(-I .  ODO )/)80 . DO 
00  25  11*1, HP 
TH»»MIO(  1 1 ,  KJ  )KRAO 

Ei  1  0CO3(TH)»r*2»AV!j<  1  1  ♦  AVN(  2 )  »DSIN<  TH  )**2* 

• DC00(1 H) *D5IN(  TH )  »AVN<  3) 

IF(K.HE.l)  GO  TO  65 
EPRT»En/3T'JLT(2,KJ> 

GO  TO  50 

65  I F( K . HE • 2 )  GO  TO  75 
EPRT=E11/3TULT(1,KJ) 

GO  TO  50 

75  EPRT  =  U1/STULT(2,XJ) 

50  con r i vue 

I  Ft  0.".  B3(  5MX ) .  IT  .  DA55C  EPRT) )  SMX»EP><T 
2  5  CO'iTt'iut 

I  F (  D 0 S ( S M 2 ) .  0 T  .  I  .00-10)  00  TO  555 


00017960 

00017970 

00017980 

00017990 

00018000 

OOblSOlQ 

00018020 

00018030 

oooiaoAo 

00018050 
00013060 
00018070 
00013030 
00018090 
00018100 
00013110 
00018120 
00013130 
00013190 
00013150 
00018160 
00018170 
00018160 
00018190 
00018200 
00018210 
00018220 
00018230 
00018290 
00018250 
00013260 
00018270 
00013280 
00018290 
00018500 
00018310 
30018320 
00018330 
00018390 
00013350 
00918360 
000181, ’0 
00015380 
00018390 
00015900 
0001891; 
00018920 
00018930 
00018990 
00018950 
00018960 
ODD  1 8  97  U 
00018980 
OQ0L891O 
00018500 
00018510 
00018520 
00013330 
00013590 
00018550 
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nnono  or>  ooo 


f>SMX<I,K>»SmTtS,KJ)X012CKJ) 

00018340 

00  TO  100 

30011370 

5S5 

CONTINUE 

00018580 

PSMXt I,K)*DAB3(1. 0D0/5MX) 

CONTINUE 

00018390 

100 

00018600 

PSMX( X,4)*PSNX(1,2) 

00018610 

RETURN 

00018420 

END 

00018630 

00018640 

00018630 

00018660 

SUBROUTINE  P0LYCW, AST, J , K. NC0L , LTNCM) 

30018670 

00018680 

00018690 

IMPLICIT  REAL*8<A-H,0-Z) 

00018700 

DIMENSION  XCCS).YC(3).Al<200>,A2<200>.X8v200> 

00018710 

DIMENSION  YBC2QC>,T(200>,A1A(4),A2A<4> 

00018720 

C0MM0N/CMT1/XB,YB.A1,A2,T 

00018730 

COMMON/XCYC/XC.YC 

00118740 

00118750 

ARRAY  COLLOCATION  POINTS  AROUND  EXTERIOR 

00018760 

BOUNDARY  AND  APPLY  STRESS  BOUNDARY 

000. '.87  7  0 
00018780 
00013790 

CONDITION 

DO  120  1*1.4 

00018800 

A 1 A C I  )*0 . 0 

C001881 0 

A2A( I ) *0 . 0 

00018820 

120 

CONTINUE 

00018830 

IF( LTNCM . EO. 1 )  A1AC1)«A3T 

00C18840 

I F( LTNCM . EQ. 2)  A1A(1)*-AST 

00018830 

j*0 

00018860 

XCC  5 ) *XC( 1 ) 

00018370 

YC( 3)*YC( 1 ) 

00018880 

DO  10  1*1.4 

00018890 

X«XC(I)-XC<I*1) 

00018900 

Y*YC( I ♦ 1 ) -YCt I ) 

00018910 

IFCX.EQ.O.)  X«1 . D-6 

00018920 

IFIY.EQ.O. )  YM  .D-6 

00018930 

TH*DATAN2(X,Y) 

TH«THMlfiO,/DARC03<-0 .1D1) 

00013940 

00018950 

Dx»(xct  i  +  i  i-xct  m/nxoLri  > 

00013960 

DY*(YC(I+1 )-YC( I ) J/CNCOL+1 ) 

00013970 

DO  20  11*1, NCOL 

00013980 

J>JM 

00013999 

I F( 1 . EQ , 1 . OR . I . EQ . 3)  00  TO  23 

00019003 

YB< J)*YC(I) 

00019010 

xb(  ji*xcf  n+Dx*f  m.s> 

00019020 

IF(II.EQ.l)  XB<  J  )  *XC( I )♦( DX/Z . ) 

00019030 

00  TO  24 

00019040 

23 

CONTINUE 

00019030 

YB<J>=YCm*DY*<II*.5> 

00019060 

IF(II.EO.l)  YB( J )*YC( I )♦( DY/2 . ) 

00019070 

XBC  J 1 *XC( 1 ) 

00019080 

24 

T<J)*TH 

00019090 

A 1  (  J  )  -A  1  A(  I ) 

00019100 

A2U)*A2A(I) 

00019110 

!0 

CONTINUE 

00019120 

.0 

CONTINUE 

00019130 

RETURN 

00019140 

END 

00019150 
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SUBROUTINE  C IRC (H. AST , JK, K, LTNCM) 

ARRAY  rOLLOCATION  POINTS  AROUND  INNER  BOUNDARY  AND 
APPLY  BEARINO  LOAD  IN  A  COSINUSOIDAL  DISTRIBUTION 

IMPLICIT  REALMS! A-H, 0*Z) 

DIMENSION  X(600),Y(600),THTAC200)iAl(290)»A2(200> 
DIMENSION  XB(209).YB(200) 

C0MM0U/FB1/B5TR.XSTR 

COMMOil/CMTl.  XB«YBi Al< A2«THTA 

COMMOM/CHT2/X.Y 

COMMON/ ELP/ A  >  B  >  N 

C0N*-1 , 0 

X5TR-A3T 

83TR*( 2 . NHMXSTR>/( DAPXOS(CON)mB) 

NMC  »N-4 
Ni)«MM4/4 
DO  20  in.N 
JK*JKH 

TH«((I-l)M2  +  n*DARC0S(C0N)/N 
XCI)«AMDC05(TH) 

Y(I)«BMDSIM(TH) 

CS*-X:i>¥MB/(Y<r.  UN) 

I  F(  Y<  I J  ,OT.U'THTA(  1* OAT  AN!  CS ) -DARCOS! CON >/2 . 

IF!  YUJ.LT.OITHTAC  .  1  l=DATAM(CS)+UASCQ5CCON)/2. 

T HT A (  JK)=>THT  \t  J*  )  <  1 5  0  .  /  DARCOStCON 1 
IFJLTMCN, £9.2)  CO  TO  25 
I FC I  .:r,CN3l-l)  .AND.  I  .LT.(N-NO))  00  TO  204 
GO  TO  30 

25  IF(I.L2.(Ng*2),CS.;.rE.(N-NO-l)J  00  TO  204 
30  continue 
AW  JXl’O. 

A  2  C  Jis)"0. 

X  3 1 .1 X  )  *  X  (  I  ) 

y:«:  1  »>  t : ) 

i )  2u 

.  ••C..0*  1.'  T 5T  V  a  ■  •  53 1  - 3 .  > -  7  W  AHt  Y  <  5 1/ .< <  J ; ) 

l r . ).  >  *.*  •  :o 3 :  * i .  •♦*at uiirf  i vxu ) ) 

•  •  ostv  . .  ■  co: :  t  :*\ 

X  1  *  i)  . 

a(JT)*XC) 

'M  ..X  >  *YC  n 
20  .. ":(T I ,(UE 
'KT'JRIt 

•  '(D 


VJDRO'JTIliE  FIOEC^(h.PHS,KJ,HCPT4,MCLD 


00019160 
00019170 
00019180 
00019190 
00019200 
00019210 
00019220 
00019230 
00019240 
00019250 
00019350 
0001  '70 

oeou  :io 

00019290 
00019300 
00019310 
00019320 
00019330 
00019340 
00019310 
00019360 
00019370 
0001938  'J 
00019390 
00019400 
00019410 
00019420 
00014430 
000194X0 
00019450 
00019460 
00019470 
00019*20 
00019490 
00019500 
00019510 
00019520 
00019530 
0001 95  -'O 
0  0019  'i  5  0 
00019  :-0 

ooni  •  • : 
01101'"  .1.) 
Daemon 

00019500 

00019510 

00010520 

000195.’, 0 

0001904 0 
0  0  "  l  9  0  :  0 
00019450 
00019570 
000195*0 
0001’>4')0 

o  c  n  1 9  7  o  0 

o.'  "  I'll 

5  •  5 

0  0  0 1  9  7  0 

o  o  o  1 4 ; . .) 
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nnnnr.oi .  noon  non  ono  non 


IMPLICIT  REAl*8(A-H.0-Z) 

DIMENSION  A(3>  3)»WK(25) • AI(3»3)iAZ(5)»HKK(l21)#BC(3Q0) 
DIMENSION  CHt4),H<2) 

COMPLEXMH  ORHS(IOO) 

COMPIEXHH  CM(300.90).CMC(20Q,90).CMCTCM(9Q,90).RH3(90> 
COMMON/ROOTS/R1 » R2 
COMMON/ AMT/A 

COMMON/ TERMS/ PI .Ul.P2.Q2 
COMMON/ El  P/AX. 8X.N0UT ,  NSTS 
COKMON/SER/NT  >  NB 
COMMON/ItIV/AI 

COMPIEXMU  ZC4).Z1,Z2.Q1,Q2.PI,P2,R1,R2.HAU48«3> 

AMATRX  CALCULATES  THE  LAMINATE  'A*  MATRIX 

CALL  AMATRX(H.PHS.KJ) 

N*3 
I  DOT « A 
IA«3 

LINV2F  INVERTS  THE  'A*  MATRIX 

CALL  LINV2FtA,M.IA.AI.I30T,WK.IER) 

NOEO'A 

AZU)*AI(l,n/AI(2.Z) 

AZ<2)«-2.*AI<1.J>/AI(2,2) 

AZ(3)«(2.xAI(I,2)4AI(3.3))/AI(2.2) 

AZ(4)«-2.*AI(2,3)/AItZ.2) 

AZ(5)*1 . 0D0 

ZRPOLY  FINDS  THE  ROOTS  OF  THE  CHARACTERISTIC  EQUATION 
CALL  ZRPOLY(AZ.NDEO.Z.IER) 

Zt 2 )  AND  ZtA)  ARE  THE  COMPLEX  CONJUGATES  OP  Z(I> 

AND  Z( 3 )  RESPECTIVELY 

Rl *Z( 1 ) 

R2^Zt3) 

THE  TUO  SCOTS  MUST  BE  CHECKED  FOR  A  UNITARY  COMPONENT 
IN  EITHER  THE  REAL  OR  IMAGINARY  PARTi  SUCH  AN 
CCCURANCE  SIGNIFIES  A  QUA5I-I30TR0PIC  LAYUP  AND 
THE  VALUE  MUST  BE  PERTURBED  SLIGHTLY  IN  ORDER  TO 
AVOID  A  SINGULAR  MATRIX 

CHt l)=Rl 

CHt  2 ) s ( 0 . 0 . -1 . 0 )  xRl 
CHt  3 )  SR2 

CHt4 )«t0.0,-1.0)«R2 
DO  50  I J K  *  I  <  A 
AR* DABSt  CHt I JK) ) 

IPtAR.LE  1.0)  GO  TO  Jl 
no  TO  52 

51  IFtt  1  ,0"AR>.LT.0.02)  CHtIJK>»0.98 
GO  TO  JO 

J2  I  Ft  t  AR- 1 . 0 ) . LT . 0 . 02 )  CHCt JKJ*1 . 02 
30  CONTINUE 

R 1  =  OCMPLXtCHt 1 .  .CHt  2) ) 

RC,DCMPlv"CHt  3) .  CHt  A) ) 


00019730 
00019770 
00019780 
00019790 
00019800 
00019810 
00019820 
00019830 
QQ0198A0 
0001R830 
00019861) 
00019870 
00019880 
00019890 
00019900 
00019910 
00019920 
00019930 
000199AO 
00019950 
00019960 
00019970 
00019980 
00019990 
00020000 
00020010 
00020020 
00020030 
000200AD 
00020030 
00020060 
00020070 
00020080 
00020090 
00020100 
00020110 
00020120 
00020130 
OOUZOIAO 
00020150 
00020160 
00020170 
00020180 
00020190 
00020200 
00020210 
00020220 
00020230 
000202AQ 
00020250 
0002025  0 
00020270 
00020280 
00020290 
00020300 
00020310 
00020320 
00020330 
00020J40 
00020350 
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CONSTANTS  P1.P2.Q1.Q2  ARE  NEEDED  FOR  STRESS  CALCULATIONS 

Pl'AI<l'i)MRlKN2+AI(1.2)-AHX,3;NRl 
P2*AI ( 1 t 1 ) KR2KX2+A1 ( 1 . 21-AI ( 1 ■ 3)  *R2 
Q1  ■  AI ( 2 • 2 l/Rl+AI ( 1 >  2 )NR1-AI (2. 2 ) 

Q2* AI (2. 21/R2+AI ( 1 , 2 ) XR2-AI ( 2*  3 ) 

INPUTS  AIN1(I),AIN2(I)  ETC.  REFER  TO  BOUNDARY  CONDITIONS 

NT4«4*NT 

NT8*a*HT 

NT8P4*8XNT*4 

NT8P2«8*NT*2 

NT8PI »8*NT  *1 

NB2*2"NB 

NWK»NT8P1*(NT8P1*2) 

CALI  CHAT( 8C ,  CMCTCM, CMC , CM, RHS . 0RH5. NT4 , NTS , NT8P4 , NT8P2 , 
1NT3PI,N62i  NUK,  WA  ,'NKK  , NQPT4 , KJ , NCL  L 1 
RETURN 
END 


SUBROUTINE  AMATRX(H, PHS.K) 

ASSEMBLE  THE  A  MATRIX 
IMPLICIT  REALR8CA-H.0-2) 

DIMENSION  A(J.3),ANiM5,2).H(2),NPLY(2),NUMPLYt2> 

DIMENSION  E1(2).E2(2).012(2).V12<2),V21(2> 

DIMENSION  IPLYC 1 UO  >  2 ) 

COMMON/ MOD/ El .E2.012.V12.V21 
COMMON/ AMT/A 

COMMON/LYP/NPLY»  NUMPLY ,  ANQ> IPLY 
TNKNES*NPLY(K)«hU) 

OENO>1 .-E2(K)mv12(K)MM2/E1(K> 

91 1 *E1 ( K 1/DENO 

9C2*E2(K)/DEN0 

01>*!*V12(K)MQ22 

oa-oi; 

oi:»oi2(X) 

DO  10  1*1.3 
DO  1J  J*l, 3 
10  A( I ■ J)*O.ODO 
NN«NPLY‘K) 

T«H(K) 

DO  20  1*1, NM 
L  P * IPLYI I . K) 

THTAI»(ANO<IP.K)+P,"')*DARCOS(-1 .DO)/1BO.DO 
CIDCOS(  TMTA1 ) 

S D SIN!  THTAI ) 

A(1,1)»(011RC*k4+2.*(012+2.><033)NCRC*5*S+Q22RSRR4)RT+A(1»1) 
AC2.2»*(011*S««*<i*?  ►(012  +  2.*033)*C)<C><S>»S+022>tCiiR4)»T*AC2,2} 
At  1 .2)«<<Qll  +  QL2-4.  »033)RCMC»S»5+012*(C*)«4fSi«*4))'<T+A(l,2) 
At2.n*A(1.2) 


00020360 

00020370 

00020380 

00020300 

00020400 

00020410 

00020420 

00020430 

00020440 

00020430 

00020*60 

00020470 

00020480 

00020490 

00020300 

00020310 

00020320 

00020530 

000205*0 

00020330 

00020360 

00020370 

00020580 

00020390 

00020600 

00020610 

0Q020620 

00020630 

00020640 

00020630 

00020660 

00020670 

00020680 

00020690 

00020700 

00020710 

00020720 

00020730 

00020740 

00020750 

00020760 

00020770 

00020780 

00020790 

00020800 

00020810 

00020P20 

00020830 

00020840 

00020850 

00020860 

00020870 

00020880 

00020890 

00020900 

00020910 


A(i.S)*({Qll  +  022>2. 8Q12-2.*Q33)*Cl«C*SRS4933X(C>iX4*SXX4))l«T+A(3,  3)  00020920 
At  l.S>«UQl3-tJ12-2.xQ3i>*CK*3*S+<Ql*-Q22+2.xQ3S)X5K*3XC>>n+ACl,  3)  00  0209  30 


At  2. 3)»(<QH-Q12'2.ii^33)i«SNN31<C+<Q12-0224,2.X033)*CXI»3XS)RT+A(2,3)  00020940 


A( 3.2)>A(2.3) 


00020950 
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A(3,1)*A<1,3) 

20  CONTINUE 
DO  33  1*1,3 
DO  33  J  *  1 , 3 
A(I,J)«A(I,J)/THKNES 
33  CONTINUE 
RETURN 
END 


SUBROUTINE  CMAT ( BC , CMCTCM , CMC , CM , RHS , GRHS » NT4 , NTS , NT8P4 , NT8P2 » 
lNTaPl.NB2,NWK,WA,WKK.N0PT4,KJ.NC01) 

CMAT  OUTPUTS  STRESSES,  STRAINS,  AND  DISPLACEMENTS 
AT  SPECIFIED  COORDINATES 

IMPLICIT  REAl*8<A-H,0-Z) 

DIMENSION  ASX(400>.ASXYC400),UVOUT<20) 

DIMENSION  XC(3),YC(S> 

DIMENSION  THTA(200).X(200).Y(200),AMAT(3.3) 

DIMENSION  AIN1< 200). AIN2C 200 ).BC(NB2) 

DIMENSION  WKK(NT8P1 ) , MORKC700) 

DIMENSION  XOUTI300 ), YOUT<600) ,STSV(30) 

DIMENSION  FUR(400),FTHT(400),F3MR(40Q) 

DIMENSION  RTMT(400).REPXL400), REPYI400 ) ,REPXY(400) 

DIMENSION  APSXOOO ) » APSY<  300 ) ,  APSXY(  330 ) 

COMPLEXN14  CMCTCMLNT8P1 ,NT8P1 ),RH3(NT8P1),PNI1D»PHI2D,XETA1,XPTA2 
COMPLEX*!*  ACDC 25,23) ,ACD2( 23,23 ) ,RHS2(  23) 

COMPLFXiiU  UO.VO 

C0MPL2XN16  CM(N82,NTBP4)« CMC( NB2, NTSP1 ) ,Z1 , Z2.Z11 , 222, R1 , R2 
C0MPL2X*16  T11,T12,T21,T22,P11,P12,P21,P22 
COMPLEXRU  Pl,P2,Ql,Q2,DCMPLX,CO,CSUM,ORHStNTBP2> 

C0MPLEXH16  PHI.\DP,PKI2DP,PHI1DN,PHI2DN 
C0MP'.EX*1  A  PHI1P,PHI2P.PHI1N,PHI2N,PHI1,PHI2 
COMPlEXXH  PHI3M,PHI3P,PHlS,PHI4N,PHI4t\PHI4 
COMPLEX*  16  SVn.SV12.SV21.SV22.RBU.RB21,RBllB,RB21B 
COMPLEX* 16  R1B,R2B.P1B>P2B,Q1B,Q2B,HA( NWX) 

COMMON/ INFl/APSX , AP5Y,  APSXY 

COMMON/XCYC/XC.YC 

COMMON/ NCST/NCASE , NTYPE 

COMMON/ XXY1/ ASX, ASXY 

COMMON/ 5TS/ST5V 

COMMON/UV/UVOUT 

COMMON/ROOTS/R1.R2 

COMMON/ TERMS/ PI , Q 1 ,P2,  Q2 

COMMON/CMT1/X,Y,AIN1,AIN2,THTA 

COMMON/CMT2/XOUT , YOUT 

C0MM0N/FB2/FUR , FTHT , FSMR 

COMMON/QMT/RTHT . REPX.REPY.REPXY 

COMMON/ELP/ AX , BX , NOUT . NSTS 

COMMON/SER/NT , MB 

COMMON/ 1NV/AMAT 

IF(N0PT4.EQ.S.AMD.NCA$E.GT.i)  00  TO  3333 
DO  6666  III*1,NT8P1 
DO  6666  IHH«1,NT8P1 
6666  CMCTCMC  HI, IHH)<( 0.000,0. 0D0) 

A*AX 


00020960 
00020970 
00020980 
00020990 
0002)000 
00021010 
00021020 
00021033 
00022040 
00021030 
00022060 
00021070 
00021080 
00021090 
00021100 
00021110 
00021120 
Q002U30 
00021140 
00021150 
00021160 
00021170 
00021100 
00021190 
00021200 
00021210 
00021220 
00021230 
00021240 
00021230 
0002126C 
00021270 
00021280 
00021290 
00021300 
00021310 
00021320 
00021330 
00021340 
00021330 
01021 360 
00021370 
00021380 
00021. 90 
00021400 
00021410 
00021420 
00021431 
00021440 
00021430 
00021460 
00021470 
00021480 
00021490 
00021500 
00021510 
00021320 
00021530 
00021540 
00021550 
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B*BX 

C0'(0.0. 1 .0) 

RBI  1 *( Q1-P1*R1 >/( A-C0*R1*B) 
RB21-(QZ-P2»R2)/(A-C0*R2XB) 

REAIR1 - R1 

REAIR2*R2 

REALP  1 *P1 

REALP2»P2 

REALQl-Ql 

REALQ2*Q2 

RRBU'RBU 

RRB21 'RD21 

AtMORl*CO«Rl 

AIMQR2*C0*R2 

AIMGP1 *CO*Pi 

A1NGP2*C0»P2 

AttlOQl  *C0*Q1 

A IMG02 *C0XQ2 

ARBI  1 *C0*RB1 1 

AR321 *C0*R321 

R1  B:  L'CMPLXl  REALRljAiMGRl) 

R28*DCMPLXCREALR2..MMOR2  5 

P1B«DCMPLX< REALP 1.AIMOP1 > 

P2B«DCMPIXCREAIP2,AIM0P2> 

Q1 8 *DCMPLX( REALQ1 , A 1 MGQ1 ) 
Q2B>UCMPLX(REALQ2.AlMOG2i 
RBI  1 3*0CMPIX( RRB1 1 , ARB  1 1 ) 

RB21 B,0CMPLX( RRB21 » ARB21 ) 

J  J  J  *  0 

DO  1000  1*1 >NB 
J  ■  1*2 

THTAI "THTAC  X )XDARC0S( -1 . QDO )/180 >  DO 

c->dco:(thta:i 

5*D5IN(THTAI ) 

PU-CXP1+SXQI 
P12»C*P2+S*Q2 
P21«-0*P1+C*Q1 
P22* -S  <P2*C*G2 

TU  *  (  CKCXRl 'R1+5K5-2  .  "CXSMRD 
T12:(C>'C*R2>.R2«-S»S-2  »C»S*R2) 

T Z  l  =  C  -c*  :*":1XR1  +  CXS-(CKC-S«5)RR1) 
ri2-C-Cx;>R2KR2*C,<S-CCxC-S*S)>‘R2) 

21  »X(  I *+R) xY/I) 

-:2«x(  n*R2.<vf  i ) 

L'  1=CDSQRTCZ1*Z1-A*A-R1*R1*8>IB) 
?r2>CD30RTCZ2*Z2-A*A-R2XR2«B*B) 

REAL  1 >21 1 
A1H01*-C0»ZU 

1 FC  DABS( REAL  1 > . LC . 1 .D-l6>REAll*0.0D0 
CFi  t)AB5<  AIMOl )  .IE.  1 .  D-16) AIMOl'O . ODO 
Zll’DCMPLXCREAll.AIMOl) 

REAL  2 -Z2Z 
AIM02»-CQ*Z22 

IFCDAB3(kEAL2). IE. 1.0-16 ) REAL  2*0 • ODO 
IFf  t)AB3(  AIM02  )  .  LE  .  1  0-16  )A1MQ2*0  .  ODO 
222  J  DUMP L  X ( REAL  2.  A 1MIJ2  ) 

XETA! *(21+211 >/<A-C0«Rl*8> 
IFCCOABOUETAD.LT. 0.999)  OO  TO  SOO 
00  TO  110 
300  £111-211 


00021560 
00021570 
00021580 
00021590 
00021600 
00021610 
001*21(20 
00 1.2 16  50 
00021640 
00021650 
00021660 
00021670 
00021650 
00021690 
00021700 
00021710 
00021/20 
00021730 
00021740 
00021750 
00021760 
00021770 
00021780 
00021790 
00021800 
00021810 
00021B20 
00021B30 
00021840 
00021850 
00021860 
00021870 
00021880 
00021890 
00021900 
00021910 
00021920 
00021930 
00021940 
00021950 
00021960 
0002197U 
00021980 
00021990 
00022000 
00022010 
00022020 
00022030 
00022040 
00022030 
00022060 
00022070 
00022080 
00022090 
00022100 
00022110 
00022120 
00022130 
00022140 
00022150 


!■ 


221 


ooo  onrt 


310 

320 

330 


3 


1000 


106 

195 


296 

295 


X£TA1«(Z1+Z11 )/( A-C0XR1X6) 

XETA2*(Z2*Z22)/(A-C0XR2»5) 

IFCC0AB5CXETA2>.LT. 0.999)  00  TO  320 

00  TO  350 

Z22*-Z22 

XETA2*(Z24Z22)/(A-C0HR2MB) 

CONTINUE 

JJJ«JJJ41 

NORMAL  I  TANQENTIAL  STRESS  BOUNDARY  CONDITIONS  ARE  IMPOSED 

DO  5  N*1 . NT 
NP*N 

CM( J-l , N)«NPNXETA1NXNP«T11/Z11 

CM( J-l . 2XNT+N)*NPMXCTA?N*NPMT12/Z22 

CM<J,N)»NPNXETA1XXNP*T21/'Z11 

CM(J,2mnT4N)>NPHXETA2mnnPXT22/Z22 

NN*-N 

CMC J-1,NT4N)*NNXXETA1XXNNXT11/Z11 
cm J-1.3hNT4N)»NNxXETAZXXNNXT12/222 
CMC J i NT+N/ *NNMXETA1 XXHNXT21/Z11 
CM( J . 3XNT+N)»NN*XETA2x*NNXT22/Z22 
CONTINUE 

CM(J-l,Nf84l)«Tll/Zll 
CM(J-1,NT8+2)*T12/Z22 
CMU,NT8*1)«T21/211 
CMC J . NT8*2 ) aT22/Z22 
CONTINUE 
DO  195  1*1 (NB2 
00  196  J*1,NT4 
REAL  1 “CMC 1 1 J ) 

AIMOl »-COXCM(X,J) 

IF( DABS (REAL 1 ) . LE. 3 . 0*16 ) REAL 1*0 . QDO 
I  F( DA JS( AIMG1 ) . L E . D-16 ) A IMOl *0 . ODO 
CMC  1 1 J )« DCMPLXC  REAL  1 . AIMOl ) 

AIM02»-AIM01 

CMC  I , NT  4+ J )* DCMPLXC REAL 1.AIM92) 

CONTINUE 
CONTINUE 
DO  295  1*1. NB2 
DO  296  J*1 i 2 
REAL  1 *CM( I , NT8+ J ) 

A IMOl *-COXCM( I »  NT8+J ) 

IFCDABSCREAL1>.LE.1.D-16)REAL1»O.ODO 
IFC DAB5C AIMOl ) . LE . 1 . D-16 ) AIM01*0 . 0D0 
CMC  I , NT8+J )*DCMPLX(REAL1. AIMOl) 

AIM02*"AIM01 

CMC  I , NTH+2+J ) *DCMPLX( REAL1 . AIM02) 

CONTINUE 

CONTINUE 

SV11*CP2X01B-02P«»IB)/C01NP2-02RP1) 

SV12«iP2*Q2l)-Q2RP2B)/C9lNP2-92*Pl) 

3V21 *C  01 MP1M— QlBHPl )/( Q1NP2~Q2XP1 ) 
SV22*(01XP2B-02BXP1)/CQH»P2-02XP1) 

DO  139  1*1. ND2 

IMPOSE  RIOID  BODY  ROTATION  CONDITION 

CMC  1 , 2XNT+1 )*-CM(  1 1 1  )XRB21/RB1 l+CMC  1 . 2XNT*1 ) 
CMCI,4xNT+l)*-CMCI,l)RRBllB/RB114CM(I,4XNT+l) 


00022160 

00022170 

00022180 

00022190 

00022200 

00022210 

00022220 

00022230 

00022240 

00022250 

00022260 

00022270 

00022280 

00022290 

00022300 

00022310 

00022320 

00022330 

00022340 

00022350 

00022360 

00022370 

00022380 

00022390 

00022400 

00022410 

000224/0 

00022430 

00022440 

00022430 

00022460 

00022470 

00022480 

00022490 

00022500 

00022510 

00022320 

00022330 

00022340 

00022330 

00022560 

00022570 

00022580 

00022590 

00022600 

00022610 

00022620 

00022630 

00022640 

00022650 

00022660 

00022670 

00022680 

00022690 

00022700 

00022710 

00022720 

00022730 

00022740 

00022750 


CMCI,6*NTH)*-CM<  1, 1)^8218/^5 1 1+CM<1,6«NT+1) 

CMU.i)*CO.  0.0,0) 

c 

C  IMPOSE  SINOIE-VAI UEUNES5  CONDITION 
C 

CMC I >  NT8+3) *CM( I,NT8*1)*$V11 +CMC I , NT 8+ 3) 

Cl.  ' »MT8*4)»CMC I »  NT8  +  1 )*SV12*CMC t , NT8+4) 

CMC  t.NT8v3)»CMlI»NTa+2)*$V2UCMC)i,NT8+3) 

CMf IfHr8*4)«CMa,NT8+2)*SV22tCM<I,NT8+4i 
CM  I.NTS+1)»<Q, 0,0.0) 

CIV  1 1  NT8+2  )*(  0 , 0  f  0 . 0  ) 

159  COI..IHUE 

00  141  I *1 , N82 
DO  142  J«2,NTS 
142  CMC  I ,  J-lMCMtI.J) 

CMCI,NT8>«CMI.NT8*3) 

CMC  I , NT8*1 ) »CMC I ,  NTS >4) 

141  CONTINUE 

DC  05  1*1,1182 

:o  da  jh.utspi 

REAL  1 »CM( X , J  > 

A I  ."a  l  >-CC«CM(  I,  J  » 

1  F  t  PABSC  RE.'.1.  1  3  .  L  !T .  1 .  D- 16  )REAl  1*0.000 
1F(  DABS <.U P.0,  )  .1.  E.  1 . 0-16) A1M01  *0.000 
CMC l . J  ) J  DCMPUCC  REAL  1 ,  AIM01 ) 

A1M02«-AIM01 

CMCC I . J )  *DCNPLXC  REAL  1 , AIM02 ) 

*6  CONTINUE 
94  CONTINUE 

DO  100  1=1.  HfSPl 
DO  100  J--1.NT8P1 
CGUM'CO. 0.0.0) 

DO  110  K*  1 . NB2 

113  CSUM*CUCCK.I)<»CM<IC.J)+C3UM 
CMC T CMC  I , J  )*CSUM 
100  CONTINUE 
3335  CONTINUE 

DO  120  I  *1 ,NB 
J  *  l  <  2 

3C  C  J  - 1 ) ' AIN1 C I ) 

120  8C  C  J  3  5  A I N2C 1 3 
OO  130  1*1. NT8P1 
CSUM*  <  0 . 0 . 0 , 0 ) 

::o  l'.o  x * l , NB2 

140  r.3UM*CMC(  K.  I  > XBCC K )+CSUM 
130  RHSC I  )  *CSUM 
1 J0B*0 

.  I  F(  II0PV4  .  EQ  .  5  .  AND .  NCASE  .  OT ,  1 )  IJCB»2 

M*t 

CALL  L FU2CCCMCTCM, NT8P1 , NT8P1,RHS,M,NT8P1, IJOB, WA , WKK, X CR > 
IFCIER.EQ.129)  HR1TEC6.11) 

11  FORMA  T ( 1  TERMINAL  ERRORC CMCTCM ) , IER  ■  129') 

0NH3(l)“”CRHS(2KNT)xRB2l+RHS(4*NT)FRBl lB+fCHSC6*NT)nRB218)/RBH 
ORMSC8KNT  +  n«RHSC8XNT)KSVll+RH5C8*NT  +  l)il5V12 
0  >H5(3iiNT+2)»RH5C8i»NT)RSV21+RHSC8)CNT+l)ICSV22 
DO  151  1*2, NTS 
151  GPHSC I )’RHSC  1-1 ) 

C 

C  STRESS  AND  STRAIN  CALCULATION 
C 


00022760 
00022770 
O00227BO 
00022790 
00022800 
00022810 
30022820 
00022850 
00022840 
00022850 
00022860 
00022870 
00022880 
30022890 
00022900 
00022910 
00022920 
00022930 
00022940 
00022950 
00022960 
00022970 
00022980 
00022990 
00023000 
00023010 
00023020 
00023030 
00023040 
00023050 
00023060 
00023070 
00023080 
00023090 
00023100 
00023110 
00023120 
00023130 
00023140 
00023150 
00023160 
00023170 
00023180 
00023190 
00023200 
00023210 
00023220 
00023230 
00023240 
00023250 
000232b  0 
00023270 
00023280 
00023290 
00023300 
00023310 
00023320 
00023330 
00023340 
00023350 


i 


ft 


223 


r 


RAD*DARC03(-1 .OD0J/180,D0 
IC»1 
I C2  =  1 

SUMU1 *0 . 0D0 
SUMV1*P . 000 
SUMU2*0 . 003 
5UMV2*0 . 0D0 
NADO'O 

I F( N0PT4 , EQ . 1 )  00  TO  1193 
Ir(NTYPE.N£.2.0R.NCA5E.0T .4)  00  TO  1196 
NAD0*4*NCUl 
NIC*  1 

DO  197  11*1, NADD 
XOUT( NOUT +NSTS+II ) *X( II ) 

197  YOUT' NOUT +NSTS+1I ) *Y( IX ) 
MM«NUUT+HSTS+NADD 
XOUT (MN+l )*AX 
YOUT  (M!l*l  )*0 . 020 
X0UT(MN*2 ) *0 . 0  DO 
Y0UT(MN*2)*-AX 

XOUT  ( MN*3 ) *AXXDC05( 177.D0XRAD) 
YOUTCMN+3) *AXXDSIN( 177 .  DOxflAD) 

X0UT(MN+4 ) *0 , ODO 
Y0UT(MN*4)*AX 
NAD0*NADD+4 
00  TO  1193 
1196  CONTINUE 
NADD*8 
NIC*2 

MN*NOUT+MSTS 
DO  199  111*1.  A 
1CM«5-III 

XOUT(MM*III ) *XC( ICM) 

YOUT(MN+III )*YC(1CM) 

199  CONTINUE 
MN*MN+4 
XOUT ( MN+l ) *AX 
YOUT(KN*l >*O.ODO 
XOUT ( MN+2 ) *0 .ODO 
YQUT  t  MN+2 )  *“AX 

XOUT ( MN+3 1 * AXXDC05C 177 , DOXRAD) 

YOUT ;MN+3)*AX*D5INC 177 .DOMRAD) 

XOUT ( MN+4 ) *0 . ODO 
YOUT ( MN+4 ) * AX 
1195  CONTINUE 
NRCF=NOUT 

I F( NOPT  A  .  EQ . 5)  NRCF*NOUT+NSTS+NADD 

NINC'NSTS/A 

DO  190  K*1 1  NRCF 

2 1 *XOUT ( K ) +R1MY0UT(K) 

22»X0UT<K)+R2XY0UTCK) 

211*CD3QRT(21XZ1~AXA  -Rl*Rl*t>l«B) 

Z22*CD3qRT(Z2M22-AMA-R2wR2X3XB) 

XETA1 « <21+211 VI A-C0*R1*B) 
IFCCDABS(XETAl) .LT.O, 999)  00  TO  AOO 
GO  TO  A10 
AOO  ZU--Z11 

XETA1»<ZI+Zli V<A-C0<R1*B> 

A10  XETA2*(Z2+Z?25/( A-C0*R2«B) 

IF(CDAB5(YETA2). IT, 0.999)  00  TO  920 


00023360 

00023370 

00025330 

00023390 

00023A00 

00023A10 

00023420 

00023430 

00023440 

00023450 

00023460 

00023470 

00025480 

00023490 

00023500 

00023510 

00023520 

00023530 

00023540 

00023550 

00023560 

00023570 

00023530 

00023590 

00023600 

00023610 

00023620 

00023630 

00023640 

00023650 

00025660 

00023670 

00023689 

00023690 

00025700 

00023710 

00023720 

00023730 

00023740 

00023750 

00023760 

00023770 

01023780 

00023790 

00123800 

00053810 

00013020 

09023830 

C 0023540 

00023E50 

00023830 

00023870 

00023880 

00023090 

00023900 

00023910 

00023920 

00025930 

00023940 

00023950 


I 


00  T  1  4  30 
420  Z223  -Z22 

XET1  ’  =  (Z2*-Z22)/CA-C0*R2J«B) 

4 jo  conrtMue 

PHIU)P3(0. 0,0,0) 

PH12PP3(0. 0,0.0) 

PHUt>N«<0. 0,0.0) 

PHiznn«(o. o.o.o) 

PH11P*<0. 0,0.0) 

PHI2P*(0. 0,0.0) 

PHIIN«<0. 0,0.0) 

PHI2N«<0. 0,0.0) 

DO  170  M* 1 , NT 

MP*fl 

MN»-N 

PHI1DP«UPXXETA1XXNPX0RHSCN)/ZU+PHUDP 
PHIlDIJ=NHXXETAlXXNNxGRHSCNT*M)/Zll+PHI]DH 
PHI2DH  »NP*XETA2XXNPXORHSt 2XNT+N)/ Z22+PHI2DP 
PHI2DU3IUIXXETA2XXNN,<GRHSC3XNT4N)/Z22+PHI2DN 
PHIlP'-XETAlKXMPxGRHStN'HPNIlP 

phiih3xetai**nnkcrhs<nt+n)*phiin 

PHI2P»XETA2XV(NPXGRHS(2XNT+N)+PH12P 
PNI2N3XETA2xi«NNxGRHSC3XNT+N)  +  PHI2N 
170  COMTIUUE 

PHI1D=PHIIDP+PHI1DM+GRHS(3XNT+1)/Z11 

PH12D*PHI2DP+PHI2DM+GRHS(8XNT+2)/Z22 

PHI1  =  PHI1P+PHI1N+ORHS(8'<NT+1)»(CDLOO<XETA1) 

PH123PHIZP+PHI2N*GRHS(SKNT+2)XCDL0G(XETA2) 

SGMAX32.xCRlxRlxPHIlD+RZXR2XPHI2D) 

SGMAY*2. X(PHI1D+PHI2D) 

$GMAXY«-2.XCR1XPHI1D*R2XPHI2D> 

EPS X* AM AT (1,1 )*SGMAX+AMAT< 1 , 2) XSGMAY+AMATC 1 > 3 ) XSOMAXY 
EPSY»  AMAT 1 2 , 1 ) * SGMAX+AMAT<  2,  2 )  XSGMAY+AMAK2 , 3 )*$GMAXY 
EPSXY3A!TAT<  3, 1 )XSGMAX+AMATC3,2)X5GMAY+AMAT<3, 3)XSGMAXY 
U*2.XCP1XPHI1'*'P2«PHI2) 

V*2.x('UxPHIlfQ2i<PHI2) 
ri-DARCOS(-l .00) 

IF(XOUTCK) .GT.O. . AMD . YOUT ( K ) .GT.O. ) 

HETAA  =  DATAmYOUT(K)/XOUT(K)  JX160./PI 
IFCXOUT(K)  .LT.O.  .  AND .  YO'JTt  X)  .GT.O.  ) 

+  TET AA  =  DAT AN (YOUT ( K )/XOUT <  K ) )X180..'PI  +  180  . 

IFCXOUTCK)  . lT.O.  ,  AND  .  YOUTC  K)  .  IT .  0  .  } 
+TFTAA=OATAH(YOUT(K)/XOUTCK) )X180,/P:< 180. 

IF(YOGTtK)  LT.O. .AHD.XOUTCK) .GT.O. > 

+TETAA-OA) ANt YOUTC X)/XOUT(K) )»180 ./PI+A60 . 
CsDCGS(TETAA*Pt/180. ) 

S"0SIH<TETAAKPI/180.  ) 

3GMAR  =  C*i<2<SGMAX*S.'<*.:xSGMAY-»2. XCXSXSGMAXY 

SGMAT  =S**2*SGMAX+CXX2xSGMAY-2 , XCXSXSGMAXY 

5GMART=-CX5xsGMAX+Cx2xSCMAY+(Cxx2-Sxx2)XSGMaXY 

EPSR  =  C**2*EPSX'-Sxh2xEPSY+CxSxEPSXY 

EP3T  =  3x:«2«EPSX  +  Cxx2*EPSY-C*SxEPSXY 

EF'SRT-2.x(  -C*SXEPSX*CXSXEPSY+C  CXX2-SXX2  )X(  EPSXY*‘2  .  )  ) 

UR=UXC+VXS 

IFCN0PT4.EQ.5)  GO  TO  3338 

RTHT ( K ) =TET  AA 

REPX(K)-EPSX 

REPYUO-EPSY 

REPXY( K )  =  FPSXY 

A3X(K)-Sr”AX 


00023060 

00023970 

00023980 

00023990 

U0024000 

00024010 

00024020 

00024030 

00024040 

00024050 

00024060 

00024070 

00024080 

00024090 

00024100 

00024110 

00024120 

00024130 

00024140 

00024150 

00024160 

00024170 

00024180 

00024190 

00024200 

00024210 

00024220 

00024230 

00024240 

00024250 

00024260 

00024270 

00024280 

00024290 

00024300 

00024310 

00024320 

00024330 

00024340 

00024350 

00024360 

00024370 

00024380 

00024390 

00024400 

00024410 

00024420 

00024430 

00024440 

00024450 

00024460 

00024470 

00024480 

00024490 

00024500 

00024510 

00024520 

00024530 

00024540 

00024550 


*»  ..  i 


V 


225 


onon 


ASXYt  X) *5GMAXY 
FURCX )sUR 
FTHTtK)*T£TAA 
FSMR(K)  *SGHAR 
3338  CONTINUE 

I FOIOPT4 . EQ .5. AND. K.GT .NOUT)  GO  TC  3339 
ApSXt  X ) “SOMAX 
APSYt  X) *SGHAY 
APSXYCX)«5GMAXY 
5339  CONTINUE 

IF<N0PT4.EQ.l>  GO  TO  190 

I  Ft  N0PT4 . EQ . 5 . AND . X .  UE  .NOUT  .  OR  ,K  .GT  .  ( N0UT9N5TS)  )  GO  TO  191 
IFdC2.LE.NINC)  STSVv IC2)«S0MAX 

I F( IC2 . GT . N1NC . AND. IC2 . LE . t2*NINC))  STSV<IC2)*S3MAXY 
IF( IC2. GT. f  2XNINC)  ,  AND .  IC2  .  LE  .  C3NNINC) )  STSVdC2>*SGMAX 
I F ( IC2 ,  GT .  (  3KNINC)  . AND. IC2 . LE . C4MNINC) )  STSVnC2)»SGMAX 
IC2*IC2*1 
GO  TC  190 

191  CONTINUE 

!F(N!C. EQ. 1 )  GO  TO  192 

I F( N0PT4 . EQ . 5 . AND. X. LT. < NRCF-7 ) )  GO  TO  190 

UVOUTtIC)*U 

uvourc ic+i )*v 

IC«IC*2 
GO  TO  190 

192  CONTINUE 
NC«NOUT+NSTS 

I  Ft  X , GT . NC . AND , X . L  E . c  NC+NCOL ) )  SUHU1 «SUMU1+U 
I  F(  K .  OT  .  (  NC+NCOL  ) .  AND .  X  .  !.£ .  ( NC+2NNC0L  > )  SUNVl *SUMVX+V 
I F( X . GT . ( NC+2XNC0L ) . AND . X . LE. (NC+3XNC0L ) )  5UMU2«SUMU2+U 
I  Ft  X .  GT  .  t NC+jxNCQL 5 . AND . X . LE. (NC94MNCQL ) )  5UMV2"SUMV2*V 
NNC«NC+4XNC0L 

I  Ft  X  EQ . t  NNC+1 ) )  UV0UT<9>«U 
IF<  X  .  EQ  .  ( NNC+1 ) )  i'V0UT(10)«V 
IFt  X . EQ . t NNC+2 ) )  UV0UT(11)«U 
I  Ft  X . EQ . t  NNC+2 ) )  UV0UTtl2)»V 
IFt X.EQ.tNNC+3))  UV0UT(13)«U 
I  Ft  X . EQ . ( NNC+3 ) )  UV0UTC14)«V 
IFt  X . EQ . < NNC+4 ) )  UV0UTtl5)«U 
I  Ft  X . EQ . ( NNC  +  4 ) )  UVOUT  C 1 6  )  * V 
190  CONTINUE 


DISPLACEMENTS  ARE  AVERAGED  OVER  ELEMENT  SIDES  FOR 
CERTAIN  LOAD  CASES 


IF(NIC.NE.l)  RETURN 

SUMU1  ’SUMUl/'FLOATtNCOL) 

5UMV1*SUMV1/FL0AT(NC0L) 

SUMU2*SUNU2/'FL0ATtNC0L  ) 

SUMV2*SUMV22FL  OAT(  NCOL  ) 

UVOUT  1 1 ) *SUMU2 

UVOUT  1 2 ) *SUMV2 

UVOUT f  3 ) *CUMU2 

UVOUT  1 4 ) *SUMV1 

UVOUTt5>=SUMl'l 

UVOUT ( 6 ) *5UMV1 

UVOU V 1 7  5  aSUMUl 

UVOUT  1 8  ) *SUMV2 

RETURN 

END 


00024560 

0002457  U 

00024580 

00024590 

OOC’4600 

00024610 

00024620 

00024630 

00024660 

00024650 

00024660 

00024670 

00024680 

00024690 

00024700 

00024710 

00024720 

00024730 

00024740 

00024750 

00024760 

00024770 

00024780 

00024790 

00024800 

00024810 

00024820 

00024830 

00024840 

00024850 

00024860 

00024870 

00024880 

00024890 

09024900 

00024910 

0002492V 

00024930 

00024940 

00024950 

00024V60 

00024970 

000 24 980 

00024990 

00025000 

00025010 

00025020 

00025030 

00025040 

00025050 

00025060 

00025070 

00025080 

00025090 

00025100 

00025110 

00025120 

00025130 

00025140 

00025150 


t 


r 

C 

c 

SUBROUTINE  FBOLTC ANOKi Hi PSH. K) 

C 

C 

C  FBOLT  CALCULATES  THE  INDIVIDUAL  PLY  FOUNDATION 
C  MODULI  AND  THE  INDIVIDUAL  PLY  LOADS 
C 
c 

IMPLICIT  REAL*a<A-H,0-Z> 

DIMENSION  ATETAA(400).ANGC5i2)iASIGR(4QO)i ASIQRT(AOQ) . H  C  2  > 
DIMENSION  ASIGl(400),ASIG2C400)iASIG6(400),UR\400) ■ ANGKCSi 2) 
DIMENSION  FSMRC400>.Pl.XPTC10Q) 

DIMENSION  IPLY<I00i2)>NPlY(2)i NUMPLYI2) 

DIMENSION  FKI ( ’ 00 ) i PL  X( 10  0 ) 

DIMENSION  Ell  C  i, ) .  £22(2  ) .  ESS(2) ,  PMU121 2)  .  PMU2K2) 

COMMON/ STRESS/ ASIOR i ASIGRT ,ASIGl.ASI02iA5I06 

COMMON/ CLP/ AX .  BX ,  liOUT 

COMMON/ PS  1/ BSTR i XSTR 

COMMON/ LYP/NPLY,NUMPLY,ANO,IPLY 

C0MM0N/FB2/UR, ATETAA, FSMR 

COMMON/ MOD/ Ell , E22 , ESS , PMU12, PMU21 

COMMON/ rCT/PLXPT 

RADmDARCO S ( -0.1DIJ/180. 

THKTOT»MPLY(K)*H(K> 

NN*NUMPI.YU) 

C 

C  CALCULATE  DELEFF 
C 

H0PK*0 . 

PL0ADX*0 . 

IF(K.EO.l)  PLDa0  . 

DO  210  KK'l.NOUT 
THl=ATETAA(KK+l >-ATETAA<KK) 

TH2«(ATETAA(KK)+ATETAA(KK+l))/2. 

THETA*TH2xRAD 

C=DC03(THETA3 

S’DSIH(THETA) 

R  =  0  SQRT  ( 1  ./(C**2/AX>i«2  +  3*x2/BXX>l2n 
FORCE »C (FSMR(IOO*FSMRCKK+1 )  )/2,  ) XRXTH1 XRADKTHICTOT 
WORK*WORK+rORCE*  5X  ( <  UR<  MO+UR<  KM  1)  >/2  .  ) 
PLOADX=PLOADXFFORCE*C 
210  CONTINUE 

PLD*PLD*PLOADX 
DELEI F-WORK/PLOADX 
C 
C 

c 

c 

c  COMPUTE  PLY  STRESSES  FROM  LAMINATE  STRAINS 
C 

C  (SlCMA)Ri  OiRO  *  (<3>*CEPS)R,0,R0 

C 

C 

NN'NPLYCK) 

DO  IDO  .Isl.NN 

IP'IPIY1.  J ,  K ) 

THETA: ( AHGCLP,K)>PSH)»RAD 
L  1 1  *  1 


00025160 
00025170 
00025180 
00025190 
000c5200 
00029210 
00025220 
00025230 
00025240 
00025250 
00025260 
00025270 
00025280 
00025290 
00025300 
00025310 
00025320 
00025330 
00025340 
00025350 
00025360 
00025370 
00025380 
00025390 
00025400 
00025410 
00025420 
00025430 
00025440 
00025450 
00025460 
00025470 
00025480 
00025490 
00025500 
00025510 
00025520 
00025530 
0U025540 
00025550 
00025560 
00025570 
00025580 
00025590 
0Q0256  00 
0C0256 1 0 
00025620 
00025630 
00025640 
00025650 
00025660 
00025670 
00025680 
00025690 
0CQ257  00 
00025710 
00025720 
00025730 
00025740 
00025750 


227 


K 

tt 

£3 

J 

p 

l? 

If* 

f'l 

'•4 

LI2*NOUT 

P0025760 

NCASM 

00025770 

r* 

CALL  QMATXt  RAD,  THETA,  K,i.  11,  LI2.NCAS) 

00325760 

a  c 

00025790 

t*  c 

00025800 

ft  c 

INTEGRATE  AROUND  CIRCULAR  BOUNDARY  FOR 

00025810 

H  c 

INDIVIDUAL  PLY  LOADS  AND  COMPUTE  FOUNDATION 

00025B20 

J  c 

MODULI 

00025830 

c 

000258A0 

T-:  c 

00025850 

NHNHI2-1 

00025860 

PL0ADX*0 . 

00025870 

£•: 

WK*0. 

00025860 

c* 

DO  70  I*LIl.miN 

00025890 

i 

THl*ATETAA<I+t  )-ATETAA<  I ) 

00025900 

1 

TM2*(ATE1AACI)+ATETAA(I+l))/2. 

00025910 

THETA*TH2KKAD 

00025920 

C=DCOS(THETA> 

00025930 

S*DS1M(THETA> 

00023940 

V 

R*DSQRT(  1  ./<C»*2/'AX*X2+SX»I2/BX)MI2)  > 

00023950 

F0RCR=><<ASIGR(n+ASIGR<I»in/2.  '*R*TH1»RAD*H(K) 

00025960 

*  * 

FORCRT*( I ASIORTI I ) f ASIORTI 1  +  1 ) 1/2 . )MRMTH1KRADXH(  K) 

00025970 

/* 

1 

PLOADX«PLOADX+FORCRxC-FORCRT*S 

00025980 

i 

70 

CONTINUE 

00023940 

f  * 

FKI I J )*DA8S<Pl OADX/( H(X)MDELEFF) ) 

00026000 

b 

PLX( J  +  <K-1)KNPLY(1))  =  I  LOADX 

00026010 

r. 

100 

CONTINUE 

00026020 

fi; 

NT»NUMPI.YCK) 

00026030 

K 

NN*NPLY(  1C) 

00026040 

K 

DO  310  1*1 . NT 

00026050 

ti 

DO  310  Il'l ,NN 

00026060 

1 

IF(  I PL YC I I , K) . EQ . I )  A'lOK(I,K)»FKHII) 

00026070 

m 

fj 

IF( IPLY(  III K) . EQ. I )  Pi  XPTm«PLXCmU-l)*NPlYCl>> 

00026080 

K 

310 

CONTINUE 

00026090 

\ 

NP«NUMPLY(K) 

00026100 

i" 

DO  311  1*1. NP 

00026110 

b 

AA«AIIO(I,K)+PSH 

00026120 

V 

311 

CONTINUE 

00026130 

■  « 

PlXTCT  =  0 . odo 

00026140 

] 

lF(K.EQ.l)  BLOAD*0. 

00026150 

TH*H(K)«NPLY<K) 

00026160 

*, 

BlOAD*( BSTRXDARCOS (  -1 . ODO)*8X*TH>/2.+BLOAD 

00026170 

£• 

IFCK.EQ.l)  00  TO  611 

00026180 

ft 

NN*NPLY< l )  +  NPLY(2 1 

00026190 

K 

DO  212  1*1. NN 

00026200 

K 

PLXTOT  *PLXTOT+PLX( I ) 

00026210 

k. 

212 

CONTINUE 

00026220 

,1 

611 

CONTINUE 

00026230 

r 

RETURN 

00026240 

r 

END 

00026250 

[  c 

00026260 

K  C 

00026270 

W  c 

00026280 

SUBROUTINE  QMATXI RAD. THETA, K, LIl , L I 2.NCA3) 

00026290 

4  c 

00026300 

c 

"MATX  PERFORMS  BASIC  STRESS  AND  STRAIN 

ft00?6  X'. " 

t  C 

TRANSFORMATIONS 

00026320 

1  c 

00026330 

t. 

IMPLICIT  REAL  X8( A-H ,0-Z) 

00026340 

1 

K: 

DIMENSION  ASIGRC 400 ) , ASIGRTC 400) , AS1G1 ( 400) , ASIG2C 4001 , A3106C 400 ) 

00026350 

i| 

i. 

( 

22  8 

£ 

3 

* 

■ 

■ 

« 

jt 

y 

'#■ 

a 


a 


i 


s» 

V 


DIMENSION  ATETAA(400).AEPSX(400)»  AEP5Y( 400  ) ,  AEP3XYI  400 ) 

DIMENSION  Ell(2).E22(2)»ES3(2)i PMU12I 2 ) • PMIJ21  ( 2 ) .  SX( 400 ) , $XY( 400 ) 
DIMENSION  AEP51I400) 

DIMENSION  ASX( 400 ) . A3XY( 4Q0 ) 

COMMON/ XXY1/A5X.ASXY 
COMMON/MOD/E1 1 , C22, E33.PMU12.PHU21 
COMMON/ STRS52/AEPS1 

C0MM0N/STRE33/ASIGR. ASIORT . A3I01 > ASI02.A3I06 
COMMON/ CMT/ A TETAA. AEPSX. AEPSYiACPSXY 
COMMON/ I'SCJ/SX,  5XY 
J«0 

<m*EUU)/U.0-PMU12(K)«PMU21(X) ) 
Qt2*(?MU2l<K>*Ell<K))/'1.0-PMU12U'*PMU21(IO> 

022*:.  22(K )  /  <  1 . 0-PMU12I K )*PMU21 ( K ) ) 

966‘ESSCIO 
C'DCO THETA) 

S’DSfK  THETA) 

DOT.  :  :il»(C**4))*<2.  *(gi2»(2.«066))X(CKM2)A(SX«2))+(022X(S'<X4)) 
BIU’-'l  <  011 ♦022-14. *066  )) «( 3*»2)H( CXXZ) )  +  <«I2A(SXX4+CKN4)) 


C 

c 

c 

■C 

c 

c 

L 


« ) ) 

B022* (  011*1.  >^(2.M(QI26(2.MQ««nH(SNll2)M(CXR2n4(Q22M(CT(V4)) 

8026 *((011 -012-12. *064 ))*C*(SMJ) )♦( (012-Q22M  2 • RQ66 ))*S<(Cx*3)) 
BQ46  * ( ( QlltQ22-( 2 . "( 012+064 )))m(SHH2)H(CKM2) )+<964M( (CHK4  )+( S**4 ) 
*) ) 

DO  60  1*111.112 
JJJ*1 

I K< MCAS . EO . 1 )  TMETA* ATETAAC 1 ) MRAD 
C*DCOS( THETA) 

S«D3IN(THETA> 

3I0X-BQI1  *AEP3X(  1  >+BQl2«AEP3Y<miOU’(AEP3XY<  I ) 
SIOY«BQ12*AEP3X(1)>BQ22:iAEP3Y(1HI02<MAEP3XY(1) 

SIOXY*A016MAEP3X( 1 )+BQ26*AEPSY( I )*B966 RACPSXYC 1 ) 

SX<J)*SIOX 

SXY(J)«SIOXY 

ASIGRC I)«SIOX*CR*2+SIOY*SRR2*2. RSIOXYRSRC 
ASJGRTt I )«-SI0XHSmC+SI0Y*CRS>S1OXYK(CRM2-SMM2) 

ASIOl  U)*S10X*C**2^SIQYA5**2*2.)«SRCRS10XY 
ASIG2(J)*SI0X*5**2+S10YKC**2“2. R$*C)lSIGXY 
A5IG6(J)*-C*S*SIGX+SIGY*C*$*(l;X*2-SRX2)*SIQXY 
AEPSK  J)»AEPSXm*C**2+AEPSY(  I ) *S>ni2+AEPSXYC  I  >*$*C 
60  CONTINUE 
RETURN 
END 


SUBROUTINE  CENTDIH, FASSS, FASBS, P ) 


IMPLICIT  REAL *8 ( A -H, 0-Z) 

DIMENSION  PLYK(IOO). BARK! 100). BARUC 100 ) ,F( 100) 
DIMENSION  H«2) ,RF<2) 

DIMENSION  AIKl 00.  100).A(2).B(2) 

DIMENSION  NPL Y( 2  > 

COMMON/PBB/PL YK . BARK . RARU 

COMMOU/RT/RF 

COMMON/ A  EM/ A 1 1 . F 


00026560 
00026570 
00026580 
00026590 
00026600 
00026610 
00026620 
00026630 
00026640 
00026650 
00026660 
00026670 
00026680 
00026690 
00026700 
00026710 
00026720 
00026730 
00026740 
00026750 
00026760 
00026770 
000267B0 
00026790 
00026800 
00026810 
0002*820 
00026830 
00026840 
00026850 
00026860 
00026870 
00026880 
00026890 
00026900 
COOZ69IO 
00026920 
OC  026  950 
00026940 
00026950 
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V 


1 

C0MMON/L YP/NPLY 

00026960 

V. 

NNN«NPLY( 1)+NPLY(2) 

00026970 

.J 

c 

00026980 

•J 

c 

SET  UP  THE  CENTRAL  DIFFERENCE  EQUATIONS 

00026990 

g 

c 

DO  3  1*1,100 

00027000 

00027010 

DO  3  J»l,100 

00027020 

V 

3  A 1 1  ( X ,  J  )  1 0 . 

00027030 

c 

00027040 

ij 

c 

NECESSARY  CONSTANTS  ARE  FORMED 

00027050 

.  / 
•  > 

c 

00027060 

DO  7  1*1,;. 

00027070 

A(I)*H(1 )»*2/FASSS 

00027080 

7  8(I)*H(I.'J»*4/FA5BS 

00027090 

J 

HI  2*H( 1 )/H( 2  > 

00027100 

• 4 

A1  <H(  1 )  M2/FASSS 

00027110 

, « 

A2»H(2)nK2/FASSS 

00027120 

NP«NPLYU)+NPIY<2) 

00027 130 

c 

00027140 

•  * 

c 

00027150 

c 

SHEAR  AT  TOP  OF  PANEL  EQUALS  ZERO 

00027160 

j « 

c 

00027170 

v» 

AiK  1 . 1  )»1 . 

00027180 

> 

AlI(l(2>k~(2t>AlxPLYK(2)) 

AIK 1(4)*2.+A1MPLYK(2) 

00027190 

V 

00027200 

V 

AII(1.5)*-1. 

00027210 

> 

FC 1 > »  0 . 0 

00027220 

V 
•  1 

c 

00027230 

c 

MOMENT  CONDITION  AT  TOP 

00027240 

j 

c 

00027250 

I F f R F C 1 ) . OE . 1 . DIO)  00  TO  50 

00027260 

J 

£•1, 

00027270 

»« 

R*RF( 1 ) 

00027280 

% 
a  • 

GO  TO  60 

00027290 

0 

50  ?.»0, 

00027300 

R«l. 

00027310 

•»* 

60  AI I ( 2 • 1 ) *R 

00027320 

AII(2.2)*<Zw2.»H(l)KFASS:)'SW(-2.-AlllPLYIK2)+(H(l»«ll2 

00027330 

J 

uFASSSl/'FASBS) 

00027340 

.s’ 

AII(2t3)*~2*(4.«H(l)XFASSS+(2>lH(l)K*2><PLYIC(l)KH(l))) 

00027350 

AI  I  (  2 • A ) *2*2 .  *H<  1 )*FASSS+R*(2. *AlXPLYK(2)-(H(l)IO<2 

00027360 

*  * 

MMFASSS)/FASBS) 

00027370 

•, 

AIK2.5)«-R 

00027380 

**, 

F(2)«2M2.MH(1)KM3KBARK(1)KBARU(1) 

00027390 

s 

c 

00027400 

n 

c 

GOVERNING  EQUATIONS  FOR  THE  TOP  PLATE 

00027410 

c 

00027420 

,j 

N2*NPLY( 1 ) 

00027430 

. « 
« 

DO  55  J  *  1 » N? 

00027440 

v 

I  *  J  +  2 

00027450 

V 

Aini,j>*i. 

00027460 

s* 

i 

IFU.  EQ.l)  GO  TO  56 

00027470 

AtItI,J  +  n«-A.-A(i)MPLYK(J-l> 

00027480 

M 

GO  TO  57 

00027490 

?! 

56  AI I ( I > J+ 1 ) *-A . -A( 1 )HPLYK( 2) 

00027300 

57  AII(I,J  +  2)*6.  +  (2.*AU)+BU)>»«PLYKU> 

00027510 

%’ 

IFU.EQ.N2)  GO  TO  61 

00027520 

AIKI.JtJ)—  4 . -At  l  JKPLYKC  J  +  l  > 

00027530 

00  TO  62 

00027540 

61  AII(I,J*5)*-4,-A<l)XPlYK(NPLYCl)-l) 

00027550 

> 
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ooo  ono  ooo  onn 


6?  AlKl.J»4i*l. 

IFC J . E9. 1 )  00  TO  5S 

IFCJ.E9.N2)  GO  TO  63 

F< I )»A< 1 ) »6ARK( J-l >  «  BAH IK J -1 ) 

F~<  2 .  *A(  1  H|(  1 )  )*  BARK  (  J  )  «8ARU(  J  ) 
••♦AU)»BARK(J*U*aA«U<J>n 
00  TO  59 

5 A  F(I)*2.MA(1) HBARKC 2 ) «BARUC Z> 

»-<2.  AACl)  ►  BCn>»BARKCl;*BARUm 
00  TO  51 

63  FCI)»2. «A<  1  )»BARK{MPim)-n»BARUCMPLY(l)-l) 
M'(2.xa(1 1*3(1) 2 M BARK ( J ) XBARUC  J 
59  CONTINUE 
55  CONTINUE 

INTERFACE  SHEAR  ON  TOR  PLATE  • 

ItNPLYC 1  >*3 
J  »NPIY<  1 ) 

AIKI.  J>«1. 

AlKI,J*i)*-<2.+Al*PLYK<NPLY(l 
AII(I,J*3)*2. ♦A1*PLYK(NPLY( l )- 
AIKI.J+4K-1 . 

Fin*<-2.*H<l>»Mii(P))/FA3BS 
SLOPE  CONTINUITY 


J«NPLY( 1 ) 

AIK  I ,  J  >»I , 

AIKI.J  +  l)«-<2.+Al>iPLYK{NPLY(l 
AIKI.J  +  3)*2. +A1KPL YK<  HPLYI 1 )” 

AIKI #  J  +  4  )  »-l . 

AIKI.J*3>»-HI2»M3 
AIK  I,  J+6  )«Hl2*>i3*C2.  ♦A2*Pl  YK(  NPLYt  J  )*2>”H(2)**2NFAS5S/'FASBS) 
AtKI(J+8)»*HI2M3»(2.  ♦A2*PLYKt  NPlYI  1  )+2)-M(  2)>»*2>«FA5SS/FASBS) 
AIK1,J+9)*H12A»3 
F< I ) *0 . 

MOMENT  CONTINUITY 

KHPLYCD+5 
JMJPLYI I  )  +  l 
AIKI,  J)«l  . 

AI K  I ,  J*1  >*-(2 .♦A1*PLYK(NPLY( 1 ) ) ) 

AIKI,J»2)»1. 

AIK  I,  J  +  5K-H12M2 

AIKI,  J*6  >*H12>  *2»(2 .  ♦A2*PIYKCNPLY(  1 )+l ) ) 

AIKI,  J  +  7  )*-H12*i*2 

F ( t  )*Al  H(  BARK( NPl Y(  1 )  )»BARU(NPIY<1 )  )-BARK(NPLY(l )*l )* 
KBARU(NPLY(1>*1)> 

INTERFACE  SHEAR  ON  BOTTOM  PLATE 

KNPIYI 1  >*6 
J -NPLY(l)+5 
AIKI.  J  J  *- 1 . 

AIKI.  Jtl)»(2.*A2»PlYK(NPLYm*2>) 

AIKI,  J*3>  «-(  2.  +  A2»PL  YK(NPIY(  1  )+2) ) 

AIKI.  J*'  '  *1  . 


1 


P 


>-l>> 

1) 


>-n-MCl)mi2*FAS55/FASB5) 
l  )*M( IIMM2NFASSS/FASBS 


OU 927560 
00027570 
00027580 
0C027590 
00027600 
00027610 
00027620 
00027630 
00027640 
00027650 
000276' 0 
00027670 
000:'680 
0  0  0  2  ‘ »  9  0 
00027700 
000277 1 0 
00027720 
0002  730 
00Q27’40 
00027750 
00027760 
00027770 
00027780 
00027790 
00027800 
00027810 
00027820 
00027830 
00027840 
00027830 
00027860 
00027870 
00027880 
00027890 
00027900 
00027910 
00027920 
00027930 
00027940 
00027950 
00027960 
00027970 
00027980 
00027990 
00028000 
00028010 
00028020 
00028030 
00028040 
00028030 
00028060 
00028070 
00028080 
00028090 
00026100 
00028110 
00028120 
00028130 
00028140 
00028150 
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ooo  r>oo 


F<  I)-2.  >>112)  M  3  ;,r-  -  333 

r* 

C  OOVE.TNlfrj  E3UATI1.V.,  FO?  THE  BOTTOM  PLATE 
C 

HI *HPIY( 1 )  *7 
M2 aMPLYC  1  J  HIPLYtP.m 
TO  70  1*111, ‘.E 

Att!i,.n»i . 

:fc :  .iv.'in  go  to  ?l 


: :  < 

i  5  *  1  )  3  • 

*  ,  ** 

\c 

2;  <.‘L‘- <( J“5) 

:i  ■ 

t 

•  *4 

•  % 

a  1 

1  « 

4  *  *  f 

Ml  *  I 

9 

* 

,  J  ’■  1 )  3  “ 

4  .  ■* 

A! 

2UPLYM{:i?LYCi)*2> 

72 

A1!S 

I 

,5+2>»6 

•4 

«•  « 

■<Af  2)*8<C)  )*PLYX(J 

:f:: 

Z9  12) 

GO 

TO 

“  3 

a:  K 
•  * 

I 

4 

4  .  - 

K 

2 )  •  P'.YY.  J  5-3  9 

■j  . 

»  •  •  i 

J 

9 

k 

. J*5>3- 

4  - 

\  * 

2)<P'.YC(J-5) 

’  i 

9 

k 

,  Jt-4)«L 

, 

•  rU.Ci.  IU  i  j  .  i  ,  j 

:-<i .i'i. r,:)  .:j  to  :? 

F(  I)*A<2)  •  n.TXC  J  - 5  J  •  JA.“IJU-5> 

<  -(  2 .  *  A  ( a )  ♦  3<  2 )  )  <  3,W\<  C  J-'. )  *  3A«UC  J-4  ) 

<*A<2  )«BARX<  J-3)K3A'AUt  J  -  5  > 

00  TO  7 <4 

73  Fv  I)«2*A(2)X3ARlKNPlYt  1  )+2)x5ARU<HPLY(l)*2> 
x-(2.*A(2)+E{2))*8ASK(  J»/i)K8ARU<  J“A  ) 

00  TO  74 

77  F<I)»2.<A<2)xBARK< J-5)*BARU< J-5) 
x-(2. 1A(2)+B(2) >4BARK( J-4)NBARUC J-4> 

74  CONTINUE 
70  CONTINUE 

SHEAR  ON  BOTTOM  PLATE  EQUALS  ZERO 

HP»NPLY( 1 J+NPLYt  2) 

I  «NP+7 
J  *NP+4 

AIKI,J>«-1. 

AIKI ,  J*l>«<2  .  ♦A2»PLYK(NP-1 ) ) 

A11C1,J  +  J)«*<2. ♦ A2*PLt<(NP“l )  ) 

a::<i, j+a)*i. 
f(  n«o. 

MOMENT  BOUNDARY  CONDITION  ON  BOTTOM  PLATE 


I*NP+8 

1 F ( RFC 2 ) .OE.l  .DIO)  GO  TO  S9 

Z3  1. 

R  *  RFC  2  > 

00  TO  95 
85  Z*0. 

R«l. 

95  AII(I,J)*-R 

AII(I»J*l>*Zx(2.*H( 2  )XFASSS)+R*(2 . ♦A2*PLYK(NP”1 > 


*-M<2)m<2*FA$SS/FA!iaS ) 

AII(I»J  +  2)*“ZN(4. NIK  2)mFASSS*2 .NH(2)NM3RPLYICCNP) ) 
AIK  I ,  J+3)*Z*2.*H<  2>xFASS5+Ri»(-2.“A2«PLYKCNP-l) 
*+H(2>#*2*FA3SS/'FA3B5) 

AIKI.  J+«7*R 


00028  1  ‘i  (J 

000,731  /U 
00023130 
00023190 
00023200 
00020210 
00023220 
00023230 
CQ0232'»0 
00023250 
01023,  iO 
5902.127  9 
00023230 
00023290 
00023300 
00023310 
00323320 
000.77  330 
0  0  0  2  5  3  3 
OO023350 
00023360 
00023570 
00023530 
00023590 
00026901 
00023410 
00023420 
00023450 
00023440 
00028450 
00028460 
00028470 
00023480 
00023490 
00028500 
00028510 
00028520 
00028530 
00028540 
00028550 
00028560 
00028570 
00028580 
00028590 
00028600 
00028610 
00028620 
00028630 
0002864C 
00028650 
00028660 
00028670 
000286*0 
00028690 
00028700 
00028710 
00028720 
00028730 
00028740 
00028750 
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nnn  nt.fio  ....  I'.rir.rv  r»."> 


R  l  >  •.’« (2  .  '•H(  2)<*1<3ARKCNP)KBARU(NP )  ) 

ktnisn 

tm) 


SUBROUTINE  SOLVEtH  i  P » U1 ,  U2) 


!‘‘Pl  I  IT  SEAL  ‘SC  A-H .  0*Z ) 

DIMENSION  A  Cl! 30. 100) .  DC  1 OO  ) ,  NPLYC2)  ,UU00  ) ,  FC  100 ) 
DIMENSION  5<< ICO » . PLYXC 100)  ,H(2) 

DIMENSION  lARKUOOJ.BARUClOO) 

C3MMCN/L YP'NPLY 

OOMMON/AF.VA.F 

. :  ■  C  N  *•  I'  3 1  /  :•’ 1 .  Y  X .  3  A  R  < ,  3  A  a  U 


solution  of  the  system*  » \ ; c u > * c 3 ) 

MPHIPLYCD  +  NPLYCS)** 

DO  444  IM.NP 

444  bumfcd 

APPLYINO  0UAS5IAN  ELIMINATION  TO  THE 
MATRIX  OF  COEFFICIENTS 

DO  2031  I«l. HP 
I  *1 » I 

2042  IFCACIR.il .NE.0. )  OO  TO  2041 
IR«IRM 

IFCIR.0T.NP1  00  TC  2001 
00  TO  2042 
2041  NM« 1  R  +  l 

DO  2002  L*HM.NP 

IFCDA8S<ACL,I)>.OT. 1.0-30)  GO  TO  2009 
A ( L • I ) *0  . 

00  TO  2002 

2009  CF*-ACIR.I)/A(L.I) 

DO  2001  J  *  1 1 HP 

A(L.J)»ACL.J)«Cr*A(lR,Jl 

IFCDABSCACL. Jll.LT. l.D-30)  ACI,J)*0.0 

2001  CONTINUE 

BCl >»B(L >*CF*BC1) 

2002  CONTINUE 
2001  CONTINUE 

BACK  SUBSTITUTION 

DO  2011  I«l, NP 

L*NP+l-I 

SUM»0. 

IF(A(L,L).E9.0.  )  00  TO  2112 
H«H1 

1FCN.OT.NP)  00  TO  2013 
DO  2011  J«N.NP 
SUM«$UM-ACL, JlnSXCJ) 

2013  CONTINUE 

SX( l ) *( B( L  )♦  SUM  VAC  l  ,L  > 

oo  to  2on 


00025760 
00023770 
00023780 
00028790 
00028800 
00028810 
00023820 
0GQ23S30 
00028340 
00023350 
03023360 
00023370 
00023330 
00023390 
n0023900 
00023910 
00021920 
00023910 
00023940 
00023950 
00023960 
00028970 
00028930 
00028990 
00029000 
00029010 
00029020 
00029010 
00029040 
00029050 
00029060 
00029070 
00029080 
00029090 
00029100 
00029110 
00029120 
00029110 
00U29140 
00029150 
00029160 
00029170 
OC0291 80 
00029190 
00029200 
00029210 
00029220 
00029210 
00029240 
00029250 
00029260 
00029270 
00029280 
00029290 
00029100 
00029510 
00029120 
00029130 
00020340 
00029350 
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2:12  continue 

SXtL)--Q. 

2011  CONTINUE 

pt«p 

Ml *NPLY( 1 )+2 
M2*MPIV< 1  )♦; 
NM*NPLY<n+MPlY(2>K 
DO  1444  1*3, Ml 
JM-2 

UCJHSX(I) 

1444  CONTINUE 

DO  1533  1  *112  ,  UN 
j « ; -6 

U( J ) »5X( X ) 

'.553  CONTINUE 

HP  -  HP  I.  Y  t  1  J+NPLYC  2  ) 


C 

C 

C 

C 

C 

C 


Cii'.P')-!  VJS3.V38  RELATIVE  DISPLACEMENTS 
I  T  AND  3QTTCM  PLATES 

'll  OA3S!  U(  l  > -N(NPl  Y(  1 ) )  )/2  . 
l;;-OA,lSCU(IIPLY(l?*-U-U<IIPLY<n  OIPLYf  2)»/2. 
RETURN 
E.ID 


DIMENSION 

DIMENSION 


DIMENSION 

DIMENSION 


SUBROUTINE  FCRIT<APP,NELl,MEL2,NDAM,XN,l.TNCM,NAVD> 
IMPLICIT  REAL*8<A-H,0-Z> 

DIMENSION  ELSTFF(5Q, 10.101. ELSTS3(50, J0»1Q).U(200) 
033X120) , OS5W(2Q) 

NELDISC50, 5,2) 

DIMENSION  PSMX( 30. 4 > . AVES<  50. 3) . STRSSCSOl.DLTUQ) 
6LFAHI50, 3)»N6LTYP<  SO) 

N EICON! 30.6). NELCNAL  SO • 6 ) ■ NPLYI2 1 
ELIIDTH(SO) . ELTHK  C  50 ) , ELLQAD(30, 2) 
DIMENSION  NELPLS(2.S0).LYPN(S0) 
CCMMOU/ELS/ELSTFF.EISTSS 
COMMON/ 03XW/QS $X, 035W 
CO-MON/I.PLS/NELP'.S.  LYPM 
CCI'MON/HCN/NGLCON.NEICIIA.NELDXS 
COMMOM/PCC/ELMDTH, ELTHK, ELLOAD 
COMMOM/SMX/PSMX 
COMMON/L AMF/EL  FAIL 
C0MM0H/DI3P/U 
COMMON/NTP/NELTYP 
COMMON/L YP/NPLY 


DETERMINE  ELEMENT  FAILURE  LOADS  IN  NET  SECTION, 
5HEAROUT  AND  BEARINO,  AND  LOCATE  THE  CRXTXCAI 
FASTENER  LOCATION.  JOINT  STRENGTH  XS  DETERMINED 
FROM  LOWEST  ELEMENT  FAILURE  LOAD 


NELTOT *NEL1+NEL2 
NS*NAVD 
NST5«4»NAVD 
DO  10  1*1, NELTOT 
NRNK-10 

I  F(  NELTYPC I ) .  EQ .  3  >  NRNK'B 
K  J  ■  I 


000293(0 

0002937  0 

00027380 

00029390 

00029400 

00029410 

00029420 

00029430 

00029440 

000294SO 

000294(0 

00029470 

OP029480 

U002949Q 

00029500 

0002931 0 

00029520 

00029330 

00029540 

00029330 

0C02936  0 

00029570 

00029380 

00029590 

00029(00 

00029(10 

00027(20 

00029(30 

00029(40 

00029(30 

00029(60 

00029(70 

00029(80 

00029(90 

00029700 

00029710 

00029720 

OU029/30 

00029740 

00020750 

00029760 

00029770 

00029780 

00029790 

00029800 

00Q29810 

00029820 

00029830 

00029840 

00029850 

00029860 

0002987  0 

00029880 

00029890 

00029900 

00029910 

00029920 

00029930 

00029940 

00029950 
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nno  "  noon  ooo 


I F( KJ , OT , NEL )  KJ*KJ-NEL 
I F( NEL T YP < I ) .EQ. 1 )  00  TO  10 
JC*0 

DO  20  J>1.S 
IC*IC*1 

DL T(IC)*UCNEL DISCI, J,l)) 

IC»IC+i 

DL  TC 1C) *U( NEl DISC  I , J >  2) ) 

20  CONTINUE 

DO  30  K»1,MSTS 

SUM»O.ODO 

DO  40  K2-1.NRNK 

SUM13UM+ELSTS3C I , KiK2)»DLT(K2) 

40  CONTINUE 
30  STRSSCO-SUM 

sum«o.ooo 

SUMZ'O . OOO 
SUM3a0 . ODO 
30(14*0 .  OOO 
00  SO  J  » 1 , NS 
SUMl-SUMl^STXSSCJ) 

5UM2*5UM2*STR55( J*N  >) 

5UM3*5UM3TSTR5SCJ*2<NS> 

30  CONTINUE 
MM *2 RMS 

DO  31  11*1, NS 

31  3UM4*SUM4+5TR53( IX* 1RNSIROSSWC  X Z  J 
AVESC 1,1) *SUM1/NS 
AVESCI.2>*SUM2/NS 

AVESC I , 3 1 ■SUM3/NS 

IFC I .  tE.NEll)  THK*EI.THK(  1 1 RNELPLSC 1 , LYPNC  I )  > 
IFC I .OT . NEL 1 >  THK»ELTHKC I 1 RNELPLSC  2, LYPNC X  ) ) 
ELD'CSUMA/E.DOlRELHDTHCl JRTMK 
PRATI0*DAB3C ( ELLOADC I , 1)+ELL0AP(*,2) 5^ ELD) 

SCALE  AVERAOE  STRESSES 

AVES(I,l)*AVES(X«l)  *  PR  AT  10 
AVESCI,2)«AVESCI,2)KPRATI0 
AVES(I,5)*AVES(1, 3)  *PRATIO 
10  CONTINUE 

COMPUTE  JOINT  FAILURE  LOADS  BASED  ON 
ELEMENT  LOADS 

DO  100  I*1.NELT0T 

IFC  MEL  TYPC I ) . EQ . I )  00  TO  100 

DO  110  J-1,3 

N  c  J  ♦  1 

IFC  J . EQ. 1 . AND. LTNCM. EQ.l )  M*1 
IFC  J  ,  EQ . 1 , AND. LTNCM . EQ . 2)  N*2 
ELFAIKI,  J)*D',.83CAPPRPSMXCT,NVAVcS:i,J>) 

110  CONTINUE 
100  CONTINUE 

SEARCH  FOR  LOWEST  JOINT  FAILURE  LOAD 

IMNS«0 
Ftisn  .0010 

INS0=0 


C  002996  0 

0002997  0 

00029980 

00029990 

00030000 

00030010 

00030020 

00030030 

00030040 

00030030 

00030060 

00030070 

00030080 

00030090 

00030100 

00030110 

00030120 

00030130 

00030140 

00030130 

00030160 

00C30170 

00030180 

00030190 

00030200 

00030210 

00030220 

00030230 

00030240 

00030250 

00030260 

00030270 

00030280 

00030290 

00030300 

00030310 

00030320 

00030330 

00030340 

0n030350 

00030360 

00030370 

00030380 

000.30390 

00030400 

00030410 

00030420 

00030430 

00030440 

00030450 

00030460 

00030470 

000.30480 

00030490 

00030300 

00030510 

00030520 

00050530 

00030540 

00050550 


<A 

d| 

iV 

•l 

i 

V 


no  oo  o  ooo 


PSOM  .0010 
INBft*0 
FBR'1.0010 
HRITE?6,356) 

356  FORMAT?/, *  JOINT  LOAD  LEVELS  CORRESPONDING  TO  NET  '*/> 
*'  SECTION  (NS),  SHEAR-OUT  (SO)  AND  BEARING  (8R)',/, 


SO 


8R'./> 


*3X, '  ELEMENT  NS 
00  120  I*1,NELTCT 
IF?NELTYP(I),En.l)  00  TO  120 
1  Ft  FMS . OT . DABS? ELFAIL(X,1)))  INNS«I 
IF?  FNS , GT . DA5S?  ELFAIL11, 1 ) ) )  FNSOABS? ELFAlLt  1. 1 )  > 
IF(FSU.0T.DABS(ELFAU?!,2»)  1NS0»1 
IF?  FSO  .  OT  .  DABS?  ELFAIL(I,2)))  FS0»DABS<  ILPAIUX.2)  > 

IF?  FBR  .  OT  .  DABS?  ELFAlld ,  3) ) )  INBR*I 

IF(FSK.TiT.DABS(ELFAIl(I,3)))  F9R-DA0S?  ELFAIL  {  1 ,  J  >  >  .  _ 

WRITE (4,222)  NELCON? I . 1 ), ELFAIL? I, 1 ). ELFAIL? I , 2) , ELFAU CI» S) 
222  FORMATC2X.18,2X,3?D9.3.2X)> 

120  CONTINUE 

IF(FNS.OT , FSO , OR . FNS . OT .FBR)  00  TO  ISO 
NOAM* l 
IN* INNS 
00  TO  200 

130  IF? FSO .OT . FNS . OR . FSO . OT . FBR)  00  TO  140 
NOAM* 2 
!N«INSO 
00  TO  200 

140  IF(FBR.OT.FNS.OR.FBR.OT.FSO)  00  TO  200 
NDAM«3 
IN-INBR 
200  CONTINUE 
RETURN 
END 


SUBROUTINE  LINV2F  (A,N,IA,AINV,I DOT ■ HKAREA , IER) 


DOUBLE  PRECISION 
DATA 


IER»0 


A?  I A ,  N  > ,  A 1 1.7?  IA ,  N ) ,  WKAREAC1 ),  ZERO,  ONE 
ONE/ l .ODD/, ZERO/D. 000/ 

FIRST  EXECUTABLE  STATEMENT 
INITIALIZE  IER 

SET  AINV  TO  THE  N  X  N 
IDENTITY  MATRIX 


ZERO 


DC  10  I  •  1 , N 
Ot)  3  J  ■  l.N 
AINVd,  J) 

5  CONTINUE 

AINV(I.I)  «  ONE 
10  CONTINUE 

;  COMPUTE  THE  INVERSE  OP  A 

CALL  LEQT2F  (A.N.N. IA, AINV, IDOT.WKAREA. IER) 

IF  (IER  EQ . 0)  00  TO  9003 
9000  CONTINUE 

CALL  UERTST  ? IER.6HLINV2F) 

9005  RETURN 
END 


00030340 

00030570 

00030S80 

00030590 

00030600 

00030610 

00030620 

00030630 

00030640 

00030630 

00030660 

00030670 

00030680 

00030690 

00030700 

00030710 

00030720 

00030730 

00030740 

00030730 

00030760 

00030770 

00030780 

00030790 

00030800 

00030810 

00030820 

00030830 

00030B40 

00030B30 

00030860 

00030870 

00030880 

00030890 

00030900 

00030910 

00030920 

00030930 

00030940 

00030930 

QQ030V60 

00030970 

00030980 

0003099U 

00031000 

00031010 

00031020 

00031030 

00031040 

00031030 

00031060 

00031070 

00031080 

00031090 

00031100 

00031110 

00031120 

00031130 

00031140 

00031 1  SO 


»  V 
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non 


c 

SUBROUTINE  LEQT2F  ( A,M,N, IA » B, IDOT.UKAREA, IER ) 

C 

DIMENSION  A(IA,1),B(IA,1 > ,WKAREA< I ) 

DOUBLE  PRECISION  A , B.HKAREA, Dl ,  D2,  M 
C  FIRST  EXECUTABLE  STATEMENT 

C  INITIALIZE  IER 

IER*0 
JER»0 
J  •  NKN+l 
X  »  J  t-N 
MM  *  Kt’N 
KK  ■  0 
MM l  «  MM-1 
JJ“l 

DO  S  L  *1 »  N 
DO  3  1*1 1  N 

VIKAREAt  JJ )  *A(  I ,  L ) 

JJ*JJU 
5  CONTINUE 

C  DECOMPOSE  A 

CALL  LUDATN  (HKAREA.N,M,A,IA,ID0T,D1,DZ,WKAREA<J>,WKAREA<K), 
m  HA. IER) 

IF  (IER.OT.12S)  OO  TO  25 

IF  < IDQT  .ED .  0  .OR.  IER  .NE.  0)  KK  ■  1 

DO  15  I  «  liM 

C  PERFORMS  THE  ELIMINATION  PART  OF 

C  AX  *  I 

CALL  LUELMN  V A, IA,N, B< 1 , 1) ,WRAREA< J l.WRAREACMM) ) 

C  REFINEMENT  OP  SOLUTION  TO  AX  *  B 

IF  UK  .NE.  0) 

M  CALL  LUREFN  (NKAREA. N, N. A , IA,B< 1 , X) , IDOT.WKAREAU ) .WKAREACMM' . 
M  WKAREAU )  ,WKAREA(K) ,  JER) 

DO  10  11*1.  N 

B(II.l)  ■  WKAREACMMl+XI) 

10  CONTINUE 

IF  (JER.NE.O)  00  TO  20 
15  CONTINUE 
00  TO  25 
20  IER  •  131 
25  J.J«1 

DO  50  J  *  1 .  H 
00  JO  I  «  1,H 

A(I,J)»WXARFA(JJ) 

30  CONTINUE 

IF  (IER  . EQ .  0)  CO  TO  9005 
9000  CONTINUE 

CALL  UERTST  (IER.6HLEQT2F) 

9005  RETURN 
END 


SUBROUTINE  LUDATF  ( A . LU.N. I A, IOOT, D1 , D2, IPVT , EQUIL ,WA, ICR) 

C 

DIMENSION  A(IA,1),1U(IA,1) .IPVT ( 1 ) >  EQUIL ( 1 ) 

DOUBLE  PRECISION  A. IU»  Dl »  D2  #  EQUIL ,WA, ZERO ,  ONE. FOUR. 51 XTN. SIXTH, 
*  RN.WREL, BIOA. BIO, P, SUM. A I ,WI,T, TEST,  Q 

DATA  ZERO,  ONE,  FOUR,  SIXTN.SIXTH/'O.  DO,  1  .DO,  A.  DO. 


00331 160 

00031170 

00031180 

00031190 

Q0031200 

00031210 

00031220 

00031230 

00031240 

00031250 

00331260 

00031270 

00031280 

00031290 

00031300 

00031310 

00031320 

00031330 

00031340 

00031350 

000.31360 

00031370 

00031380 

00031390 

00031400 

00031910 

00031420 

00031430 

00031440 

00031430 

00031460 

00031470 

00031680 

00031490 

00031590 

000315)0 

00031520 

00031530 

00031560 

00031550 

00031560 

00031570 

00031580 

00031590 

00031600 

C0031610 

00051620 

00031630 

00031640 

00031650 

00031660 

00031670 

00031680 

00031690 

00031700 

00031710 

00031720 

00031730 

00031/60 

00031750 
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c 

c 


*  16. DO, .062500/ 

FIRST  EXECUTABLE  STATEf'ENl 
ICR  t  INlllUZATlON 

RN  ■  H 
WREL  «  ZERO 
01  *  ONE 
02  i  ZERO 
B10A  >  ZERO 
DO  10  t»l,N 
BI<3  *  ZERO 
DO  3  J>1,N 
P  •  A  (  X  r  J  .1 
L.ICX.J)  »  P 
P  *  OABS(P) 

I.*  <p  .or.  BIO)  010  «  P 
5  CONTINUE 

IF  (BIO  .OT.  UKiA )  BIOA  s  BIO 
IF  (BIO  ,E9  ,  ZERO )  00  TO  110 
eouti (1)  »  ONE/BIO 
10  CONTINUE 
DO  103  J*1 «N 
JM1  »  J-l 

IF  C J-Kl  , LT .  1)  00  TO  40 

,0  35  COWUTt  1.1 . J-l 

SUM  ■  LU(I.J) 

IM1  •  1-1 

IF  (IDOT  .EO.  0)  00  TO  23 

.1  .  CAIS(SUli)  4CC““Cy 

wt  «  ZERO 

IF  < IM1  .LT.  1)  OO  TO  20 
DO  13  KM.IM1 

T  «  LU(I,K1«LU(K.J) 

SUM  *  SUM-T 
HI  «  WIMIABSCT) 

CONTINUE 
LU(I.J)  •  SUM 
MI  «  MI  +  DABSC  SUM) 

IF  (AI  . EQ .  ZERO)  AI  »  BIOA 
TEST  *  Ml/A  1 

IF  (TEST  ,0T,  WREU  MRU  »  TEST 
00  TO  33 

WITHOUT  ACCURACY 
IF  ( IM1  .IT.  1)  00  TO  33 
DO  30  r.«l.IMl 

SUM  *  SUM-ll'( IiK)MLU(K>J) 

CONTINUE 
LU(I.J)  »  SUM 
CONTINUE 
P  •  ZERO 

DO  70  I-J.N  C°MPUTK  UU*J)  ANB  UX'J)* 

SUM  •  LU(I.J) 

IF  (IDOT  . E9 .  0)  00  TO  S5 
..  .  WITH  ACCURACY  TEST 

AI  ■  DABS(SUM) 

WI  «  ZERO 

IF  (JMI  .IT.  1)  GO  TO  30 


15 


25 


30 


33 

40 


00031760 
00031770 
00031780 
00031790 
00031800 
00031810 
00031820 
0003X830 
00031U40 
00031850 
0QQ316&8 
00031570 
000315? 0 
00031890 
00031900 
00031910 
00031920 
00031930 
00031940 
U0031930 
00031960 
00031970 
00031930 
00031990 
00032000 
00032010 
00032020 
00032030 
00032040 
00052050 
00032060 
00032070 
00032080 
00032090 
00032100 
00032110 
00032120 
00052130 
00032140 
00032150 
00032160 
00032170 
00032180 
00032190 
00032200 
00032210 
00032220 
00032230 
00032240 
90U32250 
00032230 
0003227') 

. .00032280 
00032290 
00032300 
00032310 
0003232*' 
00032330 
OC032340 
00032330 


*¥V.. 


)■'•.•  i 

w 


ft.  1  1 


Hm 


t*  •* 


r- 
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»»v 

W- 


5  . 

1 


DC  '*5  KS1 ,  JM1 

00032360 

1  *  LU(l.KmUCK.J) 

000*2370 

SUM  «  SUM-T 

00032380 

WI  «  WI+DA8SCT) 

00032390 

45 

CONTINUE 

00032400 

iua,  j)  *  SU* • 

00032410 

5Q 

WI  *  WI+DABSC.iUM) 

00032420 

IF  ( A I  . EQ .  CERO)  AI  ■  BIOA 

00032430 

TEST  *  Wt/AT 

00032440 

IF  (TEST  .GT.  HREL)  WREl  •  TEST 

00032450 

GO  TO  65 

00032460 

WITHOUT  ACCURACY 

TEST 

00032470 

55 

IF  <JM.  .IT.  1)  00  TO  65 

00Q3246Q 

DO  60 

00032490 

SUM  *  SUM-LU(I.K)»LU(K,J) 

00032500 

60 

CONTINUE 

00032510 

LUCI.J)  *  SUM 

0003252P 

65 

0  «  EQUIl ( 1 )* DA BSC  SUM) 

00032530 

IF  CP  ,0E.  Q)  GO  TO  70 

00032540 

P  S  g 

00032550 

IMAX  »  I 

00032560 

70 

CONTINUE 

00032570 

TEST  FOR  ALGORITHMIC  SINGULARITY 

00032580 

IF  (RN+P  . EQ .  RN 1  GO  Tu  110 

00032590 

IF  (J  .EQ.  IMAX)  GO  TO  80 

00032600 

INTERCHANGE  ROWS 

J  AND  IMAX 

00032610 

01  *  -Dl 

00032620 

DO  75  K«1,N 

Q0C3263Q 

P  »  LUC IMAX i X ) 

000*2640 

LUC IMAX. *  LUCJ.K) 

00032650 

LUC  J  >  K)  x  P 

00032660 

75 

CONTINUE 

00032670 

EQUILC IMAX)  ■  EQUILCJ) 

00032680 

80 

IPVTCJ)  x  IMAX 

00032690 

Dl  «  D1KLUC  J  >  J ) 

00032700 

85 

IF  (DABSCDl)  ,LE.  ONE)  GO  TO  90 

00032710 

Dl  *  D1KSIXTH 

00032720 

D2  «  D2+F0UR 

00032730 

GO  TO  C 5 

00032740 

90 

IF  C  DABS C  Dl )  ,GE.  SIXTH)  GO  TO  95 

00032750 

Dl  =  D1»SIXTN 

00032760 

DU  x  02-FOUR 

00032770 

GO  TO  90 

00032780 

95 

CONTINUE 

00032790 

JP1  x  J*1 

00032800 

IF  CJP1  .GT.  N)  GO  TO  105 

90032810 

DIVIDE  BY  PIVOT 

ELEMENT  UCJ.J) 

00032820 

P  «  LUCJ.J) 

000328  JO 

DO  100  1=JP1.N 

00032840 

LIJCI.J)  x  LUCI.JVP 

00032850 

100 

CONTINUE 

00032860 

105 

CONTINUE 

00  0  328  7  0 

PERFORM  ACCURACY 

TEST 

00032880 

IF  C I DOT  .EQ.  0)  00  TO  9005 

00032890 

P  x  J *u+  5 

00032900 

UA  x  PxiiREL 

00032910 

IF  (WA+10 . DOxxC-IDOl )  . ME .  GO  TO  9005 

00032920 

IER  =  14 

00032930 

GO  TO  SOOO 

00032°40 

ALGORITHMIC  SINGULARITY 

00032950 

2  39 


on 


110  IER  «  12V 
01  ■  ZERO 
02  >  ZERO 
,9000  CONTINUE 

CALL  UERTST(IER,6HLUDATF) 
9305  RETURN 
END 


PRINT  ERRoR 


C 

C 


C 

c 


10 

15 


SUBROUTINE  LUELMN  <A,IA,N.B,APVT,X> 


DIMENSION 
DOUBLE  PRECISION 


A(IA.1),8(1), APVT(1),X(1) 

A, 3, X,SUM, APVT 

FIRST  EXECUTABLE  STATEMENT 
SOLVE  LY  ■  B  FOR  Y 


DO  5  I  *  1 ,  N 
X(I)  «  BCI) 

IM  »  0 
DO  20  1*1, N 
IP  «  APVTCI) 

SUM  «  XC IP) 

X(IP)  «  X<I) 

IF  (IM  .EQ.  0)  GO  TO  15 
IM1  »  1-1 
DO  10  JalH.IMl 

SUM  *  SUM-ACI, J)MX( J) 
CONTINUE 
GO  TO  20 

IF  (SUN  .NE.  0.D0)  IM  *  I 
20  X(I)  «  SUM 

DO  30  11*1, N 
I  «  N+l-IB 
IP1  *  IM 
sum  *  x(n 

IF  (IP1  .GT.  N)  GO  TO  30 
DO  25  JMP1.N 

SUM  *  SUM-A( I , J)KX( J) 
25  CONTINUE 
JO  X(I)  ■  SUM/ACI.I) 

RETURN 

END 


SUBROUTINE  LUREFN  (A,IA,N,UL,IUL,8, IDQT, APVT, X, RES, DX, IER) 


SOLVE  UX  ■  Y  FOR  X 


DIMENSION 
DIMENSION 
DIMENSION 
DOUBLE  PRECISION 
DATA 


I  ER*0 
XNORM  «  ZERO 
DO  10  1*1, N 

XNORM  •  DMAXKXNDRM,  DABSCXC  ID) 
10  CONTINUE 

IF  (XNORM  .ME,  ZERO)  00  TO  20 
I  DOT  *  5P 


A(IA,1),UL(IUL,1),B(1),X(1),RES(1),DX(1) 

APVT(l) 

ACCXT (2) 

A , ACCXT , B, Ul , X, RES , DX, ZERO, XNORM, DXNORM, APVT 
ITMAX/75/,ZERO/O.DO/ 

FIRST  EXECUTABLE  STATEMENT 


00032960 

00032970 

00032960 

00032990 

00033000 

00033010 

00033020 

00033030 

00033040 

00033050 

00033060 

00033070 

00033080 

00033090 

00033100 

00033110 

00033120 

00033130 

00033140 

00033130 

00033160 

00033170 

000331B0 

00033190 

00053200 

00033210 

00033220 

00033230 

00033240 

00033250 

00033260 

00033270 

00033280 

00033290 

00033300 

00033310 

00033320 

00033330 

00033340 

00033350 

00033360 

00033370 

00033380 

00033390 

00033400 

00033410 

00033420 

00033430 

00033440 

00033450 

00033460 

00033470 

00033480 

00033490 

00033500 

00033510 

00033520 

00033530 

00033540 

00033550 
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00  TO  9005 

20  DO  95  ITER*1  >  UMAX 
CO  50  1*1, N 
ACCXT(l)  *  0.0D0 
ACCXT(2)  »  O.ODO 

CALL  VXADU(B(1),ACCXT) 

DO  25  J«l,N 

CALL  VXMU l ( - A< I , J ) >  X ( J ) , ACCXT ) 

25  CONTINUE 

CALL  VXSTOC ACCXT , RE3U) ) 

50  CONTINUE 

CALL  LUELMN  (  UL ,  IUL  .  N.C.'S,  AP’.'T,  DX) 

DXNORM  ■>  ZERO 
XNORM  •  ZERO 
DO  55  1*1, il 

XU)  «  XU)  ♦  DXC I  ? 

uXNCRM  -  CMAXK  OXIJORM,  DABSv  DX<  I ) ) ) 

XNORM  *  0MAX1 (XNORM, DABS ( X ( I ) ) ) 

35  CONTINUE 

IF  (ITER  .NE.  1)  00  TO  90 
1  DOT  »  50 

IF  ( DXNORM  .NE,  ZERO)  IDOT  »  -DLOOIOC DXNORM/XNORM) 
90  IF  (XNORM* DXNORM  ,EC|.  XNORM)  OO  TO  9005 


ITERATION  DID  NOT  CQNVEROE 


95  CONTINUE 

IER  *  129 
9000  CONTINUE 

CALL  UERTSTC I ER , 6HL UREFN ) 
9005  RETURN 
END 


SUBROUTINE  UERTST  < IER. NAME) 

SPECIFICATIONS  FOR  ARGUMENTS 

INTEGER  IER 

INTEOER  MAME(l) 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 
INTEGER  I , IEO. XEODF, ICUNIT. LEVEL . LEVOLD, NAMEQ(4 ) . 

*  NAMSET(6) . NAMUPK(6),NIN,NMTB 

DATA  NAMSET/IHU. 1HE, 1HR, 1HS, 1HE, 1HT/ 

DATA  NAME9/6HH  / 

DATA  LEVEL/A*',  IEQDF/0/.IEO/1H*/ 

UNPACK  NAME  INTO  NAMUPK 
FIRST  EXECUTABLE  STATEMENT 
CALL  USPKD  (NAME, 6, NAMUPK, NMTB) 

GET  OUTPUT  UNIT  NUMBER 


CALL  UOETIOU.NIN.  IOUNIT) 

CHECK  IER 

IF  (IER. OT. 999)  00  TO  25 
IF  (IER.LT.-32)  00  TO  55 
IF  (IER. LE. 125)  GO  TO  5 
IF  (LEVEL. LT.l)  GO  TO  JO 

PRINT  TERMINAL  MESSAGE 

IF  (IE0DF.CQ.1)  HR  I TE( IOUNIT , 35 )  IER, NAMED, IEO, NAMUPK 
IF  (IEQDF.EQ.O)  HR JTE( IOUNIT, 35)  IER, NAMUPK 


CO  TO  30 

5  IF  (1ER.LE.69)  00  TO  10 
* F  (LEVEL .LT .2)  00  TO  30 


PRINT  WARNING  WITH  FIX  MESSAOE 


00033560 

00033570 

00033580 

00033590 

00033600 

00033610 

00033620 

0003363Q 

00033690 

00033650 

Q0033660 

00033670 

00033660 

00033690 

00033700 

00033710 

00033720 

00033733 

00033790 

00U337S0 

00033760 

00033770 

00033780 

00033790 

00O33B00 

Q0033S10 

00033820 

00033830 

00033690 

00033850 

00033860 

00033870 

00033880 

00033890 

00033900 

00033910 

00033920 

00033930 

00033990 

00033950 

00033960 

00033970 

00033980 

00033990 

0C039000 

00039010 

00039020 

00039030 

00039090 

00039050 

00039060 

00039070 

00039080 

00039090 

00039100 

00039110 

00039120 

00039130 

00039190 

00039150 
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IF  (IEQDF, EQ.l)  WRITE! IOUNIT, 40 )  XER.NAME9, IE9, NAMUPK 
IF  (IEQDF . EO . * )  WRITE(I0UNIT,40>  IER, NAMUPK 
(30  TO  30 

10  IF  (IER.LE.32)  00  TO  15 

PRINT  WARNIN0  MESSAGE 

IT  (LCVCL.LT. 3)  00  TO  30 

IF  (IEQDF.EQ.l)  WRITE! I0UNIT. 45)  ICR, NAMEQ, IEQ, NAMUPK 
IF  (IEQDF.EQ.O.  WRITE! IOUNIT, 45)  IER, NAMUPK 
GO  TO  30 
15  CONTINUE 

CHECK  FOR  UERSET  CALL 

DO  20  W.A 

IF  (HAMUPK(I)  .NE.NAMSET(D)  CO  TO  23 
20  CONTINUE 

LEVOLD  a  LEVEL 
LEVEL  •  IER 
I  EH  *  LEVOLD 

IF  (LEVEL. LT.O)  LEVEL  «  A 
IF  (LEVEL. OT. A)  LEVEL  «  A 
00  TO  30 
25  CONTINUE 

IF  (LEVEL. LT. A)  00  TO  30 

PRINT  RON-DEFINED  MESSAOE 

IF  (IEQDF.EQ.1)  WRITE! IOUNIT. 50)  IER.NAMEQ, IEQ. NAMUPK 
IF  (IEQDF.EQ.O)  WRITEUOUNIT, SO)  IER, NAMUPK 
30  IEQDF  «  0 
RETURN 

35  F0RMAT(19H  MNN  TERMINAL  ERROR, 10X,7H(XER  »  ,13, 

1  20H)  FROM  IMSL  ROUTINE  ,6A1,A1.6A1) 

AO  F0RMAT(27H  NX*  WARNING  WITH  FIX  ERROR, 2X,7H(IER  •  ,13, 
I  20H)  FROM  IMSL  ROUTINE  .6Al,Al,6Al) 

45  F0RMATO3H  XXX  WARNING  ERROR,  UX,7H(  IER  ■  ,13. 

1  20H)  FROM  IMSL  ROUTINE  ,6A1,A1.6A1> 

50  F0RMAT(20H  MMX  UNDEFINED  ERROR, 9X, 7H(I ER  ■  ,15. 

I  20H)  FROM  IMSL  ROUTINE  ,4A1,A1,6A1> 

SAVE  P  FOR  P  •  R  CASE 
P  IS  THE  PAGE  NAMUPK 
R  IS  THE  ROUTINE  NAMUPK 

55  IEQDF  *  I 
DO  «0  1*1.4 

60  NAMEQ(I)  *  NAMUPK(I) 

65  RETURN 
E*‘D 


SUBROUTINE  UOETIO(IOP1 .NIN.NOUT) 

SPECIFICATIONS  FOR  ARGUMENTS 
INTEOER  IOPT, NIN.NOUT 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 

INTEOER  HIND. NOUTD 

DATA  NIND/3/.N0UTD/6/ 

FIRST  EXECUTABLE  STATEMENT 

IF  (I0PT.EQ.3)  00  TO  10 
IF  (I0PT.EQ.2)  GO  TO  5 
IF  (IOPT.NE.l)  GO  TO  9003 
MIN  *  MIND 
NOUT  *  NOUTD 
00  TO  90'’'! 


0003AI60 
0003AI7  0 
00034180 
0003A190 
OQOSA2QO 
QC03A21 0 
00034220 
00034230 
00034240 
00034250 
00034260 
00034270 
00034280 
0003*290 
00034300 
00034310 
00034320 
00034330 
00034340 
00034350 
00034360 
00034370 
00034380 
00034390 
00034400 
00034410 
00034420 
00034430 
00..  34440 
00034450 
00034460 
00034470 
00034480 
00034490 
00034500 
00034510 
00034520 
00034530 
00034540 
00034550 
00034560 
00034570 
00034580 
00034590 
00034600 
00034610 
00034620 
00034630 
00034640 
00034630 
00034640 
00034670 
00034680 
00034690 
00034700 
00034710 
00034720 
00034730 
00034740 
00034750 


l 
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10 

9005 


C 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 

c 


c 

c 

c 


NINO  «  NIN 
00  TO  9005 
NQUTD  •  NOUT 
RETURN 
END 


SUBROUTINE  VXADDCA.ACCl 


DOUBLE  PRECISION 
DOUBLE  PRECISION 


A*ACC(2) 

X.Y.Z.ZZ 


X  •  ACCC1 ) 

Y  *  A 

IF  (OABS(ACC(in  .OE.DABS(A)) 
X  »  A 

Y  »  ACC(l) 

2  «  X+Y 
ZZ  •  CX-Zl+Y 


22  «  ZZ+ACCC2) 

ACC(l)  •  Z+ZZ 

ACC( 2 )  •  (Z-ACC( 1 ) )+ZZ 

RETURN 

END 


SPECIFICATIONS  FOR  ARGUMENTS 
SPECIFICATIONS  FOR  LOCAL  VARIABLES 
FIRST  EXECUTABLE  STATEMENT 

00  TO  1 

COMPUTE  Z*ZZ  *  ACCC1 )+A  EXACTLY 

COMPUTE  ZZ+ACCC2)  USINO  DOUBLE 
PRECISION  ARITHMETIC 

COMPUTE  ACCC1  1+ACCC2)  ■  Z*ZZ  EXACTLY 


SUBROUTINE  VNHUl  <».!.«»  „0UHtllI5 

A  1  ACCC2) 

*  ’  SPECIFICATIONS  FOR  LOCAL  VARIABLES 

X.MA.TA.Nl.Tk 
IX( 2 ) • I 

LXCIKLIU)  .  k 

<X.IX(1).IXC1)),<I.L1(1)> 
l/t/ 

SPLIT  A  •  HA+TA 
B  •  H»*TB 

FIRST  EXECUTABLE  STATEMENT 


DOUBLE  PRECISION 

DOUBLE  PRECISION 
INTEGER 
l 001CAI Ml 
EQUIVALENCE 
DATA 


X  ■  A 

L  I  ( A )  «  LX( 5) 

I X  ( 2  >  «  0 

I  «  1 1/16 >K16 
IX(  3)  «  LI(4  1 
HAsX 
TA*A-HA 

X  «  B 

L  I  <  A )  *  LX<5> 
I X  C  2  >  «  0 
I  «  (l/U)Nlft 
LX(  5)  »  1. 1  <  A ) 
HB  »  X 
TB  *  B-HB 


00034760 

00034770 

00034780 

00034790 

00034800 

00034810 

00034320 

00034830 

0003A8A0 

0003A850 

00034860 

0003A870 

0003A880 

00034890 

00034900 

00034910 

00034920 

00034930 

00034940 

00034030 

0007  .96V 

000  }4o?0 

00034980 

0003A990 

00039000 

00035010 

00035020 

00035030 

00035040 

00035050 

00035060 

00035070 

00035080 

00035090 

00035100 

00035110 

00035120 

00035130 

00035140 

00035150 

00035160 

0003517  0 

00035180 

00035190 

00035200 

00035210 

00035220 

00035230 

00035240 

00035250 

00035260 

00035270 

00035280 

00035290 

00033300 

00035310 

00035320 

00035330 

00035340 

000*5350 
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C 

C 

C 


C 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

.c 

c 

c 

c 

c 

c 

c 

c 

,c 

■c 

c 

c 

c 


X  •  TANTB 

CALL  VXADBCX, ACC) 

X  ■  HANTS 

CALL  VXADDCX.ACC) 

X  *  TAMHB 

CALL  VXADDCX.ACC) 

X  ■  HAXHS 

CALL  VXAOB(X.ACC) 

RETURN 

END 


SUBROUTINE  VX3T0  (ACC.D) 

DOUBLE  PRECISION  ACCC2J.D 

D  «  ACCd)+ACCC2) 

RETURN 

END 


COMPUTE  HANHB.HAKTB.TANHB,  AND  TANTB 
/.NO  CALL  VXADD  TO  ACCUMULATE  THE 
SUM 


SPECIFICATIONS  FOR  AROUMENTS 
FIRST  EXECUTABLE  STATEMENT 


INTEOER 

DOUBLE  PRECISION 

INTEOER 

REAL 

l 

REAL 

DOUBLE  PRECISION 
l 

DOUBLE  PRECISION 


LOGICAL 

COMMON  /ZRPQLJ/ 


00055560 

00035570 

00035500 

00035590 

00035600 

00035610 

00035620 

00035630 

00035640 

00035450 

00035460 

00035470 

00035400 

00035490 

00035300 

00035510 

00035520 

00035550 

00035540 

00035550 

00035560 

00035570 

00035560 

00055590 

00035600 

00035610 

00033620 

00035630 

00035640 

00035650 

00035660 

00035670 

00035660 

00055690 

00035700 

00035710 

00035720 

00055730 

00035740 

00035750 

00033760 


SUBROUTINE  ZRPOLY  (A.NDEO.Z. IER) 

SPECIFICATIONS  FOR  AROUMENTS 

NDEO.IER 
A(l), 2(1) 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 
N,NN, J , JJ ,  I , NM1 . ICNT  >  N2 ■ L , NZ>  NPI 
ETA, RMRE.RINFP.REPSP, RADIX, RIO, XX, YY.SINR, 

COSR.RMAX, RMIN.X, SC,XM, FF, DX, DF> END, XXX, ARE 
PT<101 ) 

TEMPI 101),P(101),QP(101),RK(101),9K(101), 

SVK(lOl) 

SR,SI,U,V,RA,RB,C.D,A1,A2,A3, 

A6>A7iE,F>OiHi SZR, SZI , RLZR, KLZI , 

T,  AA, BB»CC»  FACTOR, REPSR1 ,4ERO» ONE, FN 
ZEROK 

P ,QP, RK, OK, SVK, SR,SI , U, V,RA,RB ,C, D,A1 ,A2, A3, A6 , 00035770 
A7 ,  E,  F, 0, H,  SZR,  SZI , RLZR , RLZI , ETA, ARE, RMRE, N, NN  00035760 
THE  FOLLOWING  STATEMENTS  SET  MACHINE  00033790 
CONSTANTS  USED  IN  VARIOUS  PARTS  OF  00035600 
THE  PROGRAM.  THE  MEANINO  OF  THE  00035810 

FOUR  CONSTANTS  ARE  -  REPSR1  THE  00033820 

MAXIMUM  RELATIVE  REPRESENTATION  00035830 

ERROR  WHICH  CAN  BE  DESCRIBED  AS  00033640 

THE  SMALLEST  POSITIVE  FLOATINO  00035650 

POINT  NUMBER  SUCN  THAT  l.+REPSRl  IS00035860 
OREATER  THAN  1  00033870 

RINFP  THE  LARGEST  FLOATING-POINT  00033880 

NUMBER  00035690 

REPSP  THE  SMALLEST  POSITIVE  00033900 

FL0ATING-P6INT  NUMBFR  IF  THE  00033910 

EXPONENT  RANOE  DIFFERS  IN  SINGLE  00035920 

AND  DOUBLE  PRECISION  THEN  REPSP  00035950 

AND  RINFP  SHOULD  INDICATE  THE  00055940 

SMALLER  RANOE  00033950 
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✓ 

✓ 
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C 

RADIX  THE  DASE  1 

c 

NUMBER  SYSTEM 

DATA 

RINFP/Z7FFFFFFF/ 

DATA 

REPSP/200100000/ 

DATA 

RADIX/16 .0/ 

DATA 

RE; '  U/Z36 10000000000000/ 

DATA 

ZERt/O.QDO/, ONE/1. ObO/ 

c 

c 

c 

c 


IER  >  0 

IF  CNDEG  .OT.  100  .OR.  NDPQ  .LT.  U  00  TO  163 
ETA  «  REPSR1 
ARE  >  ETA 
RMRE  «  ETA 
RIO  •  REPSP/ETA 


ZRPOLY  USES  SI HOLE  PRECISION 

CALCULATIONS  FOR  SCALINO,  BOUNDS 
AND  ERROR  CALCULATIONS. 

FIRST  EXECUTABLE  STATEMENT 


XX  • 
YY  » 
SINR 
COSR 
N  « 


.7071068 

-XX 

■  .9975661 
*  -.06975667 
NDEO 


INITIALIZATION  OF  CONSTANTS 
SHIFT  ROTATION 


FOR 


NN  *  N+l 


IF  C AC  1 ) .ME .ZERO)  OO  TP  3 
IER  «  130 
00  TO  9000 


5  IF  (A(NN) .ME. ZERO)  00  TO  10 
J  ■  NDEU-NU 
JJ  e  J+NDEQ 
Z<J>  «  ZERO 
2<JJ)  >  ZERO 
MN  •  NN-1 
N  i  N-l 

IF  (NN.E9.1)  00  TO  9005 
00  TO  5 

19  DO  15  1*1, NN 

P(I)  «  AID 
15  CONTINUE 


AL00R1THM  FAILS  IF  THE  LEAbINO 
COEFFICIENT  IS  ZERO. 


REMOVE  THE  ZEROS  AT  THE  ORIOIN  IF 
ANY 


20 


IF 

IF 


(N. OT . 2) 
( N. LT . 1 ) 


00  TO 
00  TO 


30 

9005 


MAKE  A  COPY  OF  THE  COEFFICIENTS 


START  THE  ALGORITHM  FOR  ONE  ZERO 


CALCULATE  THE  FINAL  ZERO  OR  PAIR  OF 
ZEROS 

IF  CN.EO.Z)  00  TO  23 
Z t NDEO)  »  -P(2)/PU> 

Z(NDEQ*NDEO)  *  ZERO 
00  TO  165 

25  CALL  ZRPOLI  (P(l).P(2)»P(3)iZ(NDEQ-l)»Z( NDEQ+NDEO-1 ) .Z(NDEO) . 

1  ZIMDEG+NDEO) ) 

00  TO  165 

FIND  LARGEST  AND  SMALLEST  MODULI  OF 
COEFFICIENTS. 

30  RMAX  «  0. 


OOC 35960 
00035970 
00035980 
00035990 
00036000 
00036010 
00036020 
00036030 
00036060 
00036030 
00036060 
0u036070 
00036080 
000360 ,j 
00036100 
00036110 
00036120 
0UQ36130 
00036160 
00036150 
00036160 
00036170 
00036180 
00036190 
00036200 
00036210 
00036220 
00036230 
00036260 
00036250 
00036260 
00036270 
00036280 
00036290 
00036300 
00036310 
00036320 
00036330 
00036360 
00036350 
00036360 
00036370 
00056380 
00036390 
00036600 
00036610 
00036620 
00036630 
00036660 
00036650 
00036660 
00036670 
00036680 
0)036690 
00036500 
00036510 
00036520 
00036530 
00036590 
00036550 
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RMIN  *  RINFP 
DO  S3  ! *  1  *  NN 

X  •  ABS(SMOUPCI))) 

IF  CX.QT.RMAX'  RMAX  »  X 
IF  CX.ME.B. .AMO.X.LT.RMIN)  RMIN  ■  X 
CONTINUE 


SCALE  IF  THERE  ARE  LAROE  OR  VERY 
SHALL  COEFFICIENTS  COMPUTES  A 
SCALE  FACTOR  TO  MULTIPLY  THE 
COEFFICIENTS  OF  THE  POLYNOMIAL. 
THE  SCALINO  IS  DONE  TO  AVOID 
OVERFLOW  AND  TO  AVOID  UNDETECTED 
UNDERFLOW  INTERFERING  WITH  THE 
CONVERGENCE  CRITERION. 

THE  FACTOR  IS  A  POWER  OF  THE  BASE 


SC  •  RLO/RMIN 
IF  (SC.OT.l.OJ  GO  TO  40 
IF  (RMAX, LT. 10  >  GO  TO  35 
IF  (SC.EQ.Q.)  SC  «  REPSPMRADIXXRADIX 
00  TO  43 

IF  < RINFP/SC. LT . RMAX >  GO  TO  33 
L  *  ALOO( SC )/ALOQ( RADIX) + . 3 
IF  <L  .EQ.  0)  00  TO  33 
FACTOR  •  DSLE(RADIX)mml 
DO  SO  1*1, NN 
PCI)  ■  FACTORPP(I) 

COMPUTE  LOWER  BOUND  ON  MODULI  OF 

DO  60  I*1.NN  «ROS. 

PTCI)  •  ABSONOLCPt X ) ) ) 

PT(NN)  •  -PT(NN) 

COMPUTE  UPPER  ESTIMATE  OF  BOUND 
X  •  CXP((A100(-FT(NN))-AL00<PTU)))/H) 

IF  (PT(N).EQ.O.)  GO  TO  4S 

IF  NEWTON  STEF  AT  THE  ORIOIN  IS 
. .  __  BETTER.  USE  IT. 


XM  ■  -PT(NN)/PT(N) 

IF  (XM.LT.X)  X  •  XM 

M  ,  CHOP  THE  INTERVAL  (O.X)  UNTIL  FP.LE 

XM  •  XM. 1 
FF  •  PT ( 1 ) 

00  70  Ia2.NN 
FF  »  FFMXM+PT( I ) 

IF  (FF.LE.O. /  00  TO  73 
X  «  XM 
00  TO  65 
DX  *  X 

DO  NEWTON  ITERATION  UNTIL  X 

, . .  ,  CONVEROES  TO  TWO  DECIMAL  PLACES 

IF  <ABS(DX/X) .LE. .003)  00  TO  90 
FF  •  PT(l) 

OF  »  FF 
DO  83  I"2,N 

FF  •  FFXX+PTU) 

DF  •  DFMX+FF 
CONTINUE 
FF  •  FFMX+PT(NN) 

DX  ■  FF/DF 
X  «  X-DX 
GO  TO  60 


00036360 
00036370 
00036580 
00036590 
00036600 
00034610 
00034420 
00036630 
000366A0 
00036650 
00036660 
0003667C. 
00036600 
00036690 
00036700 
00036710 
00036720 
00036730 
00036740 
00036730 
00036760 
00036770 
00036780 
00036790 
00036800 
00036810 
00036820 
00036830 
00036840 
00036850 
00036860 
00036870 
00036880 
00036890 
00036900 
00036910 
00036920 
00036930 
000036940 
00036950 
000.5496  0 
00036970 
00036980 
00036990 
00037000 
00037010 
00037020 
00037030 
00037040 
00037050 
000.57060 
00057070 
00037080 
00037090 
00037100 
00037110 
00037120 
00037130 
00037140 
00037150 


I 


onnn  no  oonoon  on  o  r»  nr,  non 


90  BND  *  X 


COMMUTE  THE  DERIVATIVE  AS  THC  INTIAL 
X  POLYNOMIAL  AND  DO  3  STEPS  WITH 
NO  SHIFT 


NMl  *  N“l 
FN  >  ONE/N 
DO  95  1*2, M 

93  RKtn  ■  <NN,-I)RP<I)*FM 
RK(l>  »  P(l) 

AA  *  HtNN) 

BB  «  PC N J 

ZEROK  u  RK(N) . EQ.2ER0 
DO  113  JJ*1 , 5 
CC  ■  riKCNJ 

IF  (ZEROK)  00  ro  105 

USE  SCALED  FORM  OK  RFCUR.UNCE  IF 
VALUE  OF  K  AT  0  IS  NONZERO 

T  •  -A A/ CO 
DO  100  1*1, NMl 
J  •  HIM 

RK(J)  *  TMRKCJ-1  )*P( J J 
100  CONTINUE 

RK(1)  *  p<n 

ZEROK  *  DADS(RU(N)),LE.DABS(IB)NETAK10. 

60  TO  115 

USE  UNSCALED  FORM  OF  RECURRENCE 

103  DO  110  I>1. NMl 

J  *  NN-I 
RX(J)  «  RK(J-l) 

110  CONTINUE 

RKtl)  *  ZERO 
ZEROK  *  RK(N) .CO. ZERO 
U.9  CONTINUE 


DU  120  1*1, N 
120  TEHP(l)  «  RK( I ) 


DO  140  ICNT*1 , 20 


XXX  «  COSRMXX’-SIHRhVY 
YY  •  SINft*X»C05R*YY 
XX  •  XXX 
SR  «  BNDXXX 
SI  »  BNOXYY 
U  «  -SR-SR 
V  «  BNDMBND 


CALL  ZRPQU  <20«ICNT,NZ) 
IF  (NZ.EQ.O)  00  TO  1J0 


SAVE  X  FOR  RESTARTS  WITH  NEW  SHIFTS 


LOON  TO  SELECT  THE  OUADRATIC 
CORRESPONDING  TO  EACH  NEW  SHIFT 

OUADRATIC  CORRESPONDS  TO  A  DOUBLE 
5H1FT  TO  A  NUN  ‘REAL  POINT  AND  ITS 
COMPLEX  CONJUGATE.  THE  POINT  MAS 
MODULUS  BND  AND  AMPLITUDE  ROTATED 
BY  9A  DEGREES  FROM  THE  PREVIOUS 
SHIFT 


SECOND  STAGE  CALCULATION,  FIXED 
QUADRATIC 


THe  SECOND  5TAOC  JUMPS  DIRECTLY  TO 
ONE  OF  THE  THIRD  5TAOE  ITERATIONS 
AND  RETURN!  HERE  IF  SUCCESSFUL. 
DEFLATE  THE  POLYNOMIAL,  STORE  THE 


00037160 
00037170 
00037180 
00037190 
00037200 
00037210 
00037220 
00037230 
00037240 
00037230 
00037260 
00037270 
00037280 
00037290 
00037300 
00037310 
Q0037320 
00037330 
00037340 
00037350 
Q0Q37360 
00037370 
00037380 
00037390 
00037400 
00037410 
00037420 
00037430 
00037440 
00037450 
00037460 
00037470 
00037480 
00037490 
00037500 
00037510 
00037520 
00037530 
00037540 
00037550 
00037560 
00037570 
00037580 
00037590 
00037600 
00037610 
00037620 
00037630 
00037640 
00037650 
00037660 
00037670 
00037680 
00037690 
00037700 
00037710 
00037720 
00037730 
00037740 
000377  SO 


24  7 


non  o  o  no  non  no 


■wnnwwirwir’wwT  *\P’WH»^»|qt«a»'rT».ir^rar»ir>«.irT^  *ni>  i~»v^r>rl'V,|W. 


123 


J  •  NDEO-N+1 
JJ  ■  J+NDEO 
ZU>  -  SZR 
ZUJ)  ■  SZI 
NN  *  NN-NZ 
N  ■  NN-1 
DO  125  1*1 »NN 
P(l>  ■  QPU) 

IF  (NZ.EQ.l)  00  TO  20 
Z(J+1)  *  RLZR 
Z(  JJ  +  l)  *  RIZI 
00  TO  20 


ZERO 

MAIN 


OR  ZEROS  AND 
ALOORITHN. 


RETURN  TO  THE 


ISO 

135 

140 


DO  135 
RK(I)  • 
CONTINUE 


1*1. N 

TEMPI!) 


IF  THE  ITERATION  IS  UNSUCCESSFUL 
ANOTHER  QUADRATIC  IS  CHOSEN  AFTER 
RESTORING  K 


RETURN  WITH  FAILURE  IF  NO 
CONVEROENCE  WITH  20  SHIFTS 

CONVERT  ZEROS  (Z)  IN  COMPLEX  FORM 


SET  UNFOUND  ROOTS  TO  MACHINE 


ITR  »  131 

145  DO  ISO  1*1, NDEO 
NPl*  NDE04I 
P<I)  ■  Z(NPI) 

150  CONTINUE 

N2  ■  NDEO+MOEO 
J  *  NDEO 
DO  153  1*1. NDEO 
ZCN2-1)  *  ZIJ) 

Z(N2)  ■  P(J) 

N2  *  N2-2 
J  «  J-l 
155  CONTINUE 

IF  ( IER  . EQ .  0)  00  TO  9003 

N2  *  2*(NDEO-NN)43 
00  160  1*1, N 
Z(  M2  >  «  RINFP 
Z( N2+1 )  «  RINFP 
N2  •  H2+2 
160  CONTINUE 
00  TO  9000 
163  IER  ■  129 
9000  CONTINUE 

CALL  UERTST  (IER.6HZRP0LY) 
9005  RETURN 
END 


SUBROUTINE  ZRPQIB  (L2.NZ) 

SPECIFICATIONS  FOR  ARGUMENTS 

INTEOER  L2.NZ 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 

INTEOER  N. NN. J. ITYPE. I . IFLAO 

REAL  ARE, BETAS, BETAV, ETA, OSS. 075. OTV.OVV.RMRE, 55, 

l  TS.TSS.TV.TVV, VV 


00037760 
00037770 
00037780 
00037790 
00037100 
00037S10 
03037820 
00037830 
0Q037840 
00037850 
00037860 
00037870 
00037880 
00037890 
00037900 
00037910 
Q003792U 
00037930 
00037940 
00037950 
00037960 
00037970 
00037980 
00037990 
00038000 
00038010 
00038020 
00038030 
00038040 
00038050 
00038C6  0 
00038070 


00038090 
000381CO 
00038130 
00038  l.’O 
INHNITY000381.50 
ocpm’mO 

00U3S 1  JO 
00038160 
00038170 
00038189 
00036190 
00038200 
00038210 
00038220 
00038230 
00038240 
00038250 
00038260 
00038270 
00038280 
00038290 
00036300 
00038310 
00038320 
00038330 
00038340 
00036350 


248 
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LOGICAL 

COMMON  /ZRPQLJ/ 


DOUBLE  PRECISION  PC  10 1 ) , QPC101) , PKC 101 > . QKC 101 ) , SVK( 101 ) 

DOUBLE  PRECISION  SR, SI , U, V ,RA, RD ,C, D, A1 , A2, A3, 
l  A6 , A7 , E, F<0, H, SZR, SZI , RLZR, RLZI , 

!  SVU, SVV»UI , VI i S, ZERO 

LOGICAL  VPA5S»SPASS* VTRY,STRY 

COMMON  /ZRPQLJ/  P,9P,RK,QK,$VK,SR,SI,U,V,RA,RB,C.D,A1.A2,A3,A6, 
L  A7,E,F,G,H,SZR,SZI,RLZR.RLZX,ETA,ARE,RMRE,N,NN 

DATA  ZERO/O. 000/ 

FIRST  EXECUTABLE  STATEMENT 

NZ  «  0 

COMPUTES  UP  TO  L2  FIXED  SHIFT 
K-P0LYN0M1AL3,  TESTING  FOR 
CONVERGENCE  IN  THE  LINEAR  OR 
0UADRATIC  CASE,  INITIATES  ONE  OF 
THE  VARIABLE  SHIFT  ITERATIONS  AND 
RETURNS  WITH  THE  NUMBER  OF  ZEROS 
FOUND. 

L2  -  LIMIT  OF  FIXED  SHIFT  STEPS 

NZ  -NUMBER  OF  ZEROS  FOUND 

BF.TAV  «  .23 
BETAS  *  .23 
OSS  *  SR 
OVV  •  V 

EVALUATE  POLYNOMIAL  BY  SYNTHETIC 
DIVISION 

CALL  2RPQLH  (NN.U.V.P.QP.RA.RB? 

CALL  ZRPQLE  (ITYPE) 


DO  40  J«1,L2 


CALL  ZRPQLF  CITYPE) 

CALL  ZRPQLE  CITYPE) 

CALL  ZRPQLQ  ( ITYPE, UI, VI) 


CALCULATE  NEXT  K  POLYNOMIAL  AND 
ESTIMATE  V 


VV  «  VI 


ESTIMATE  S 


IF  (RKCN) . NE.ZERO)  SS  »  -PCNN1/RKCN) 


IF  U.EQ.l. OR. ITYPE. EQ.S)  OO  TO  33 

COMPUTE  RELATIVE  MEASURES  OF 

CONVERGENCE  OF  S  AND  V  SEQUENCES 
IF  CVV.NE.O.)  TV  s  A  BSC ( VV-OVV )/VV ) 

IF  CSS.NE.O.)  TS  «  ABSC C  SS-USS )/SS ) 

IF  DECREASING,  MULTIPLY  TWO  MOST 
RECENT  CONVERGENCE  MEASURES 


TVV  ■  1. 

IF  (TV.LT.OTV)  TVV  •  TVNOTV 
T3S  •  l. 

IF  CTS.LT.OTS)  T5S  «  TSKUT3 

COMPARE  WITH  CONVERGENCE  CRITERIA 

VPASS  «  TVV.LT.BETAV 
SPASS  *  TSS.LT. BETAS 
IF  (  .NOT. (SPASS. OR. VPASS))  GO  TU  S3 

AT  LEAST  ONE  SEQUENCE  HAS  PASSED  THE 
CONVERGENCE  TEST.  STORE  VARIABLES 
BEFORE  ITERATING 

SVU  •  u 
SVV  «  V 
DO  5  I  *  1 ,  N 


00038360 
00038370 
00038380 
00038390 
00038400 
00038410 
00038420 
00038430 
00038440 
OPO "8450 
00038460 
00038470 
00038480 
0002849Q 
00038300 
00038310 
00038320 
00038530 
00038340 
00038550 
00033560 
00038570 
00038580 
00038390 
00038600 
00038610 
00038620 
00038630 
00038640 
00038650 
00038660 
00038670 
00038680 
00038690 
00038700 
00038710 
00038720 
00038730 
00038/40 
00038750 
90033760 
00038770 
00038780 
00038790 
00038800 
0003881 0 
0003881 0 
000388:,  0 
00038840 

ooosmo 

00033860 

00038870 

00038380 

00038890 

00038909 

00038910 

00038920 

00038930 

00038940 

00038950 


X 

r 

i 


2  4  9 
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SVK(I)  >  RK(I) 

5  *  SS 

CHOOSE  ITERATION  ACCCRDINO  TO  THe 
FASTEST  CONVEROINO  SEQUENCE 

VTRY  ■  .FALSE. 

STRY  ■  .FALSE. 

IF  (SKASS.AND.d .NOT. VFASS). OR.TSS.LT. TVV)>  00  TO  20 
CALL  ZRFQLC  (UI.VI.NZ) 


IF  (NZ.OT.O)  RETURN 


VTRY  « 
BETAV 


.TRUE. 

'  BETAV* .23 


QUADRATIC  ITERATION  HAS  FAILED.  FLAO 
THAT  IT  HAS  BEEN  TRIED  AND 
DECREASE  THE  C0NVER0F.NCE 
CRITERION. 


13 

20 


TRY  LINEAR  ITERATION  IF  IT  HAS  NOT 
BEEN  TRIED  AND  THE  3  SEQUENCE  IS 
CONVEROINO 

IF  ( STRY . OR . ( . NOT . SPASS ) )  00  TO  2S 

DO  13  1*1, N 

RK(  1 )  *  SVKin 

CALL  ZRFQLD  (S.NZ.IFLAO) 

IF  (NZ.OT.O)  RETURN 


STRY  ■  .TRUE. 

BETAS  "  BETAS*. 23 

IF  ( IFLAO.EQ. 0)  OO  TO  23 


UI  ■  -<S+3> 
VI  •  SMS 
00  TO  10 


23 


JO 


u  *  svu 
V  •  svv 
DO  JO  1*1, N 
*iui>  •  svn( y. ) 


LINEAR  ITERATION  HAS  FAILED.  FLAO 
THAT  IT  HAS  BEEN  TRIED  AND 
DECREASE  THE  COKVEROENCE  CRITERION 


IF  LINEAR  ITERATION  SIONALS  AN 
ALMOST  DOUBLE  REAL  ZERO  ATTEMPT 
QUADRATIC  ITERATION 


RESTORE  VARIABLES 


TRY  QUADRATIC  ITERATION  IF  IT  HAS 
NOT  BEEN  TRIED  AND  THE  V  SEQUENCE 
IS  CONVEROINO 

IF  (VPAOS. AND. (.NOT. VTRY))  00  TO  10 

RECOMPUTE  QP  AND  SCALAR  VALUES  fO 
CONTINUE  THE  SECOND  STAUE 
CALL  ZRPQLH  (NN.U, V.P.QP.RA.RB) 

CALL  ZRPQLE  ( ITYPE) 

JS  ovv  >  vv 

OSS  ■  SS 
orv  «  tv 
OTS  «  TS 
40  CONTINUE 
RETURN 
END 


SUBROUTINE  ZRPQLC  (UU.VV.NZ) 


SPECIFICATIONS  FOR  AROUHENTS 


00038960 
0003897 0 
00038980 
00038990 
00039000 
00039010 
00039020 
00039030 
00039040 
00039030 
00039060 
00039070 
00039080 
00039090 
00039100 
00039110 
00039120 
00039130 
00039140 
00039130 
00039160 
0P039170 
00039180 
00039190 
00079200 
00039210 
00039220 
00039230 
00039240 
00039250 
00C3926  0 
00039270 
00039280 
0003929C 
00039300 
00039310 
00039320 
00039330 
00039340 
OQOJ9JSO 
00039360 
00039370 
00039380 
00039390 
00039400 
00039410 
00039420 
00039430 
00039440 
00039430 
00039460 
00039470 
00039480 
00034490 
0003q500 
00039S1 0 
00039520 
00039530 
00039340 
00039550 
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INTEOER 

DOUBLE  PRECISION 

INTEGER 

REAL 

DOUbLE  PRECISION 
DOUBLE  PRECISION 


LOGICAL 

COMMON  /iCRPQLJ ' 
l 

DATA 
NZ  »  0 


10 


NZ 

UU.VV 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 
N, NN, J , I , ITYPE 

ARE , EE, ETA , OMP , RELSTP.RMP , RMRE, T , ZM 
P(101).QP(101>,RK(10n.QK(101),SVK(10l) 
SR,SI.U,V,RA,RB,C.0.A1,A2.AS. 
A6,A7,E.F,0,H.SZR,5ZI,RLZR,RLZX. 

UI ,V! *  ZERO, PT01 , ONE 
TRIED 

P,QP,RK,QK,SVK,SR,SI,U,V,RA,RB,C,D.A1,A2.A3.A6. 
A7. E,F,0,H,SZR,SZ1,RLZR.RLZI, ETA, ARE, RMRE.  N.NN 
ZERO, PT01,QNE/0. 000. 0.0100,1 .000/ 

FIRST  EXECUTABLE  STATEMENT 

VARIABLE-SHIFT  ((-POLYNOMIAL 

ITERATION  FOR  A  QUADRATIC  FACTOR 
CONVERGES  ONLY  IF  THE  ZEROS  ARE 
EQUIMQDULAR  OR  NEARLY  SO 
UU.W  -  COEFFICIENTS  OF  STARTINO 
QUADRATIC 

NZ  -  NUMBER  OF  ZERO  FOUND 

TRIED  •  .FALSE, 

U  »  UU 
V  «  VV 
J  «  0 

MAIN  LOOP 

S  CALL  ZRPQLI  ( ONE, U, V , 5ZR, SZI ,RLZR , RLZI) 

RETURN  IF  ROOTS  OF  THE  QUADRATIC  ARE 
REAL  ANO  NOT  CLOSE  TO  MULTIPLE  OR 
NEARLY  EQUAL  AND  OF  OPPOSITE  SION 
DABSCDABS(SZR)>DABS(RLZR)) .QT.PTOIMDABS(RLZR))  RETURN 

EVALUATE  POLYNOMIAL  BY  QUADRATIC 
SYNTHETIC  DIVISION 

ZRPQLH  ( NN, U , V. T , QP , KA , RB) 

DABSCRA-SZRmi  +  DABSISZIXRB) 

COMPUTE  A  RIOOROUS  BOUND  ON  THE 
ROUND1NO  ERROR  IN  EVALUTINO  P 

«  5QRTI ABST3N0KV) ) ) 

•  2,NABS(SMOL(QP<nn 
-SZRMRP 

10  I » 2 .  M 

*  EE*ZM+AB3(5MGL(QP( I ) ) ) 

«  EE*2M*AB3r,NGl<RA>  +  T) 

«  (  5  .  MRMRE+9  ,kARE)mEE-(3.  9RMRE+2  .  MARE) M( ABS<  SNQL  C  R  A ) +T  J  ♦ 
ABSCSNOLtRB) >»ZM)+2 .*ARE*ABSIT) 

ITERATIUN  HAS  CONVEROEn  SUFFICIENTLY 
IF  THE  POLYNOMIAL  VALUE  IS  LESS 
THAN  20  TIMES  THIS  SOUND 


IF  < 


CALL 
RMP  ■ 


2M 
dE 
T  • 

DO 

EE 

EE 

EE 


IF 

NZ 


(RMP 
2 


GT.2Q.MEE)  00  TO  IS 


RETURN 

15  J  a  J*i 


STOP  ITERATION  AFTER  20  STEPS 

IF  (J.GT.20)  RETURN 
IF  (J.I.T.Z)  00  TO  25 

IF  (RELSTP.GT. .01. QR.RMP.LT. OMP, OR. TRIED)  00  TO  25 

A  CLUSTER  APPEARS  TO  BE  STALLINO  THE 
CONVERGENCE.  FIVE  FIXED  SHIFT 
STEPS  ARE  TAKEN  WITH  A  U.V  Cl P3E 


25  L 


00039560 

00039570 

00039560 

00039590 

00039600 

00039610 

00039620 

00039630 

00039690 

00039650 

00039660 

00039670 

00039680 

00039690 

00039700 

00039710 

00039720 

00039730 

00039790 

00039750 

00039760 

00039770 

0Q0397QQ 

00039790 

00039800 

00039810 

00039820 

00039830 

00039890 

00039830 

00039660 

00039870 

0003)880 

00059890 

00039900 

00039910 

00039920 

00039930 

00037990 

00039950 

00039960 

00039970 

00039980 

00039990 

00090000 

00090010 

00090020 

00090030 

00090090 

00090050 

00090060 

00090070 

00090080 

00090090 

0009010C 

00090110 

00090120 

00090130 

00090190 

00090130 


nnnnnnn  o  o  ooo  oo  oo 


IF  (HEISTP.LT.CYA)  REL5TP  ■  ETA 
RELSTP  «  SQRTCRELSTP) 

U  «  U-UXRELSTP 
V  *  V+VMRELSTP 

CALL  ZRPQIH  <NN.U.V,P,QP.RA,RB> 
DO  20  1-1.5 

CALL  2RPQLE  (ITYPE) 

CALL  ZRP9LP  (ITYPE) 

20  CONTINUE 

TRIED  -  .TRUe. 

J  •  0 


TO  THE  CLUSTER 


23  QMP 


CALL  ZRPQLE  (ITYPE) 

CALL  ZRP9LF  (ITYP'I) 

CALL  ZRPQLE  (ITYPE) 

CALI  ZRPQIO  (ITYPE. UI. VI) 


IF  (VI.E0.ZER0)  RETURN 
RELSTP  ■  DABSKVI-V  WI) 


CALCULATE  NEXT  K  POLYNOMIAL  AND  NEN 
U  AND  V 


IF  VI  IS  ZERO  THE  ITERATION  IS  NOT 
CONVERQ1NO 


U  *  UI 
V  ■  VI 
OO  TO  3 
END 


SUBROUTINE  ZRP9LD 
INTEGER 

DOUBLE  PRECISION 

INTEOER 

REAL 

OOUSLE  PRECISION 
DOUBLE  PRECISION 


COMMON  ✓ZRPOLJ/ 


NZ  •  0 
S  •  5SS 
IFLAO  »  0 
J  •  0 

5  PV  «  PCI) 

QP(1>  «  PV 
DO  10  1*7  NN 


(SSS.NZ, IFLAO) 

SPECIFICATIONS  FOR  AROUMENTS 

NZ. IFLAO 
SSS 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 

N. NN, J . I 

ARE. EE. ETA . QMP , RMP , RMS . RMRE 
P(101)iQP(101),RK(101),QK(101),SVK(101) 
SR.SI,U,V.RA,RB,C,D.A1.A2,A3, 
A6.A7.E,F.O,H,SZR,SZI.RLZR,RLZI. 

PV . RKV iT .S.ZERO.PTOOl 

P.QP,RC.0A,SVK,SRiSIiU(V(RA,RB.C»n.Al»A2.A3.A6 
A7, E.F.O.H.SZR.SZI.RLZR.RLZI, ETA, ARE, RMRE, N.NN 
ZERO/O. ODO/.PTOOl/O .001  DO/ 

VARIABLE-SHIFT  H  POLYNOMIAL 

ITERATION  FOR  A  REAL  ZERO  SSS  - 
STARTINO  ITERATE 
NZ  -  NUMBER  OF  ZERO  FOUND 
IFLAO  -  FLAO  TO  INDICATE  A  PAIR  OF 
ZEROS  NEAR  REAL  AXIS 
FIRST  EXECUTABLE  STATEMENT 


MAIN  LOOP 


EVALUATE  P  AT  3 


Q0040160 
oooAOwn 
00040180 
00040190 
00040200 
00040210 
00040220 
00040250 
00040240 
00040230 
00040260 
00040270 
00040280 
00040290 
00040500 
00Q4U31 0 
00040520 
00041530 
00040340 
00040550 
00040360 
00040370 
00040380 
00040390 
00040400 
00040410 
00040420 
00040430 
00040440 
00040430 
00040460 
00040470 
00040480 
00040490 
00040300 
00040510 
00040S20 
00040530 
00040540 
00040550 
00040560 
,00040570 
00040580 
00040590 
00040600 
00040610 
00040620 
0CG40630 
OC060640 
00040650 
00040660 
00040670 
00040680 
0004C6VO 
00040700 
00040710 
00040720 
00040730 
00040740 
0004075L' 


* 

.  s 

!> 


252 


noo  oo  oo  onnn  o  ooo 


PV  s  PV*S+PCI) 

QPCI)  =>  PV 
10  CONTINUE 

RMP  =  DABS(PV) 

COMPUTE  A  RIGOROUS  BOUND  ON  THE 
ERROR  IN  EVALUATING  P 

RMS  *  DABS(S) 

EE  »  (RMRE/(ARE+RMRE))NA8S(SNGI(WP<1)}) 

DO  15  1*2. NN 

15  EE  *  EEMRMS+ABStSNGUQPUm 

ITERATION  HAS  CONVERGED  SUFFICIENTLY 
IF  THE  POLYNOMIAL  VALUE  IS  LESS 
THAN  20  TIMES  THIS  BOUND 

IF  f  P.MP  ,  GT  .  20  .*(  t  ARE+RMRE)*EE-RMRE#RMP) )  GO  TO  20 
NZ  *  1 
SZR  *  S 
SZI  =  ZERO 
RETURN 
20  J  =  J+l 

STOP  ITERATION  AFTER  10  STEPS 

IF  CJ.OT.10)  RETURN 
IF  CJ.LT.2)  GO  TO  25 

IF  (DABS(T).OT.PTO(UMDABS(S-T) . OR . RMP . LE , OMP)  GO  TO  25 

A  CLUSTER  OF  ZEROS  NEAR  THE  REAL 
AXIS  HAS  BEEN  ENCOUNTERED  RETURN 
WITH  IFLAG  SET  TO  INITIATE  A 
QUADRATIC  ITERATION 


IFLAG  * 
SSS  *  S 
RETURN 


ZS  OMP  3  Rpp 


RETURN  IF  THE  POLYNOMIAL  VALUE  HAS 
INCREASED  SIGNIFICANTLY 


COMPUTE  Y.  THE  NEXT  POLYNOMIAL.  AND 
THE  NEW  ITERATE 

RKV  *  RK(  1 ) 

QKC 1 )  a  RKV 
DO  JO  I  =2  >  N 

RKV  •-  RKVXS+RKtU 
QKC I)  »  RKV 
JO  CONTINUE 

IF  CDAbr.(HXV).LE.DABS(RKCN3)»10.xETA)  GO  TO  40 

USE  THE  SCALED  FORM  OF  THE 

RECURRENCE  IF  THE  VALUE  OF  K  AT  S 
IS  NONZERO 

T  =  -PV/ RKV 
RKC1)  a  QPC1) 

DO  J5  I-2.N 


00040760 
00040770 
00040780 
00040790 
00040800 
00040*10 
00040*20 
000403 JO 
00040S4Q 
00040850 
00040860 
00040*70 
00040880 
00040890 
00040900 
00040910 
00040920 
Q00409J0 
00040940 
00040950 
00040960 
000409/0 
00040980 
00040990 
00041000 
00041010 
00041020 
000410 JO 
00041040 
00041050 
00041060 
00041070 
00041080 
00041090 
0004 l 1 QO 
00041110 
00041120 
000411  JO 
00041140 
00041150 
09041160 
00041170 
00041 130 
00041190 
0004120C 
00041210 
00041220 
000412 JO 


r-  ft 


i 


J5  RKC I »  ‘  TnQKCX-D+QPU J 

00041240 

r  ■« 

\ 

GO  TO  ;o 

00041250 

\ 

USE  UNSCALED  FORM 

00041260 

(■ 

40  RKC 1 )  =  ZERO 

00041270 

i 

DO  45  1=2. N 

00041280 

45  RKCI)  =  QKCI-1) 

00041290 

50  RKV  =  RKCI) 

00041 J00 

DO  55  1=2. N 

00041 J10 

i 

55  PKV  =  RXV*S+RK\ I ) 

00041 J20 

T  =  Z;RO 

00041 JJO 

\ 

IF  CUABSCRKV:  .OT.DABSCRKCN))X10.I«ETA)  T  *  -PV'RKV 

00041 J40 

S  =  St-T 

00041 J50 

2  j  } 


K 

r 

!*■ 


ooooooooor>o  o  o  ooooooooooo 


00  TO  5 
END 


I MSI  ROUTINE  NAME  -  ZRPQLE 


COMPUTER 
LATEST  REVISION 


-  IBM/DOUBLE 

-  JANUARY  1,  1978 


INTEGER 

INTEGER 

REAL 

DOUPIE  PRECISION 
DOU'JLE  PRECISION 

1 

COMMON  /ZRPQLJ/ 


SUBROUTINE  ZRPQLE  (ITYPE) 

SPECIFICATIONS  FOR  ARGUMENTS 

ITYPE 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 

N.NN 

ARE.ETA.FMRE 

0(101), OF (101), RK (101), QK(1Q1), SVK(lOl) 
SR,SI,U,V,RA,RB.C.D,A1,A2,A3, 

1  A6.A7.E.F.O.H.3ZR.SZI.RLZR.RLZ: 

_  --  P  >  QP,RK. GK, SVK, SR . SI ,U, V, RA, RB, C, D, A1 , A2, AS,  A6 

1  A7 . t, F,G, H, SZR.SZI , RLZR, RLZI , ETA, ARE,RMRE, N,NN 

THIS  ROUTINE  CALCULATES  SCALAR 
QUANTITIES  USED  TO  COMPUTE  THE 
NEXT  K  POLYNOMIAL  AND  NtW 
ESTIMATES  OF  THE  QUADRATIC 
COEFFICIENTS 

ITYPE  -  INTEGER  VARIABLE  SET  HERE 
INDICATING  NON  THE  CALCULATIONS 
ARE  NORMALIZED  TO  AVOID  OVERFLOW 
SYNTHETIC  DIVISION  OF  K  BY  THE 
QUADRATIC  1,U,V 
FIRST  EXECUTABLE  STATEMENT 

CALL  ZRPQLH  (N, U, V. RK. QK, C, D) 

IF  CCABSCC3 .GT.DABSCRKOiJlPlOO.PETA)  GO  TO  5 
IF  (  DA.3SC !) )  .GT  .  DABS(  RF  (N-l )  )Ml  OQ  .  NETA )  GO  TO  5 
I TY°E  =  I 

C  TYPE-3  INDICATES  THE  QUADRATIC  IS 

C  ALMOST  A  FACTOR  OF  K 

RETURN 

5  IF  (DABS(D) .LT.DABSCC1)  GO  TO  10 
ITYPE  *  2 

C  TYPE-2  INDICATES  THAT  ALL  FORMULAS 

C  ARE  DIVIDED  BY  D 

F  «  RA/D 
F  »  Q/  D 
G  -*  UXRB 
H  «  UXRB 

AS  »  (RA+G)XE+HX(RB/D) 

A1  «  RBXF-RA 
A7  *  ( F+U ) xRA+H 
RETURN 
10  ITYPE  •  1 

C  TYPE-i  INDICATES  THAT  ALL  FORMULAS 

C  ARE  DIVIDED  BY  C 

E  =  RY/C 
F  -  D'C 
G  «  UXE 


00041360 
0004 1 370 
00041380 
00041390 
00041400 
00041410 
00041420 
-00041430 
00041440 
0004)450 
00041460 
00041470 
00041480 
00041490 
00041500 
00041510 
00041520 
00041530 
0004154C 
00041550 
00041560 
00041570 
,00041580 
00041590 
00041600 
00041610 
00041620 
00041630 
00041640 
00041650 
00041640 
00041670 
00041u<(0 
00041690 
00041700 
00041710 
00041720 
00041730 
00041740 
00041750 
00041760 
00041770 
00041780 
00041790 
00041800 
00041810 
00041820 
00041850 
00041840 
00041850 
00041860 
OOU^ISVO 
00041880 
900-t  1 390 
00041900 
00041910 
00041920 
00041930 
00041940 
00041950 


onnoonono  oo  o  r>o  oor>  n  r»  non 


H  «  V^RB 

AS  *  RAXE+(H/C+G)XRB 
A1  *  RB-RA*(D/C) 

A?  *  RA+GXD+HXF 

RETURN 

END 


SUBROUTINE  ZRPQLF  ( ITYPE) 


INTEGER 


ITYPE 


INTEGER 

REAL 

DOUBLE  PRECISION 
DOUBLE  PRECISION 


SPECIFICATIONS  FOR  ARGUMENTS 
SPECIFICATIONS  FOR  LOCAL  VARIABLES 


COMMON  /ZRPQLJ. 

1 

DATA 


N.NN.I 

ARE. ETAi RMRE 

p<ioi),qpuoi),riuioi),qk<ioi>,svi«ioi) 
3R.SI,U,V,RA,RB,C,D,A1,A2.A3. 

A6 , A7 . E, F, O, H, SZR, SZI .RLZR.RLZI , TEMP, ZERO 
P,QP,RK,QK.SVK.SR,SI,U.V,RA,RB,C.D,A1,AZ.A3,A6. 
A7,E.F,0,H, SZR, SZI. RLZR.RLZI, ETA, ARE, RMRE, N.NN 
ZERO/O. 000/ 

COMPUTES  THE  NEXT  K  POLYNOMIALS 
USINO  SCALARS  COMPUTED  IN  ZRPQLE 
..  .  FIRST  EXECUTABLE  STATEMENT 

IF  < ITYPE . EO . 3)  00  TO  20 
TEMP  «  RA 

IF  (ITYPE. EQ.l)  TEMP  »  RB 

IF  ( DABS( A! ) . GT . DABS (TEMP) MET AM 10 . )  00  TO  10 

IF  A1  IS  NEARLY  ZERO  THEN  USE  A 
SPECIAL  FORM  OF  THE  RECURRENCE 

RK( 1 )  *  ZERO 
RK(2 )  *  -A7xQP(l) 

DO  5  1*3, N 

5  RK( I )  *  A3*QK( 5  *2 1-A7*9P( I-l ) 

RETURN 

USE  SCALED  FORM  OF  THE  RECURRENCE 

10  A 7  *  A7/A1 
A 3  *  AJ/AI 
RICH)  *  QP( 1 ) 

RK(2)  *  QP(2)-A7xQP(l) 

DO  15  1*5. N 

15  R  K  ( I )  *  A3«QK(I-2)-A7XQP(I-l)+QP(n 
RETURN 

USE  UNSCALED  FORM  OF  THE  RECURRENCE 
IF  TYPE  IS  3 

20  RK( 1 )  *  ZERO 
RK ( 2 )  *  ZERO 
DO  25  I  *  3 , N 
25  RKm  *  QK(  1-2) 

RETURN 

END 


IMSL  ROUTINE  NAME 


ZRPQLG 


COMPUTER 


-  IBM/ DOUBLE 


00041960 

00041970 

00041980 

00041990 

00042000 

00042010 

00042020 

00042C30 

00042040 

00042050 

00042060 

00042070 

00042080 

00042090 

00042100 

00042110 

00042120 

00042130 

00042140 

00042150 

00042160 

00042170 

00042180 

00042190 

00042200 

00042210 

00042220 

00042230 

00042240 

00042250 

00042260 

00042270 

00042280 

00042290 

00042300 

00042510 

00042320 

00042330 

00042340 

00042350 

000423*0 

00042370 

00042360 

00042390 

00042400 

00042410 

00042420 

00042430 

00042440 

00042450 

00042460 

00042470 

00042480 

00042490 

00042500 

00042510 

00042520 

00042530 

00042540 

00042550 


1 

.N 

.N 

£ 


Jtf 

1 


i *•: 


«* 

V 


5: 


S: 

V‘ 


i  % 

1  d 


i 


V 

V 

V 

V 
s 


C 

c 


c 

c 

c 

c 

c 

c 


c 

c 


LATEST  REVISION 


-  JANUARY  1,  1978 


INTEGER 

DOUBLE  PRECISION 

INTEGER 

REAL 

DOUBLE  PRECISION 
DOUBLE  PRECISION 


SUBROUTINE  ZRPQLG  (ITYPE, UU.VV) 

SPECIFICATIONS  FOR  ARGUMENTS 

ITYPE 
UU.VV 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 

N.NN 

ARE. ETA.RMRE 

P(l01),QP(101>.RK(101),QK(101).SVK(10l> 
SR.SI.U. V.RA.RB.C, D,A1,A2.A3, 

A6 , A7 , £, F, G< H, SZR, SZI . RLZR. RLZI . 
A4iA5iB1iB2iC1.C2iCS.C4i  TEMP. ZERO 
P.QP.RK.QK.SVK.SR. SI, U, V.RA.RB.C. D.A1.A2.A5.AB 
AV.E.F.G.H, SZR, SZI, RLZR, RLZI, ETA. ARE, RMRE.N.NN 
ZERO/ O.ODO/ 

COMPUTE  NEW  ESTIMATES  OF  THE 

QUADRATIC  COEFFICIENTS  USING  THE 
SCALARS  COMPUTED  IN  ZRPQLE 
USE  FORMULAS  APPROPRIATE  TO  SETTINO 
OF  TYPE. 

FIRST  EXECUTABLE  STATEMENT 

TO  IS 
TO  3 


COMMON  /ZRPQLJ/ 
L 

DATA 


IF  (ITYPE. EO. 3)  GO 
IF  (ITYPE. EQ. 21  GO 
■  RA+UXRB+HHF 
•  C+(U*V*F)*D 
00  TO  10 
3  A4  ■  (RA+G1KF+H 
«  (F+U1XC+VXD 


A4 

AS 


AS 


EVALUATE  NEW  QUADRATIC  COEFFICIENTS. 


C 

C 

C 


10  81  «  -RK(N)/P(NN) 

B2  *  -(RK(N-l)+Bl*P(N))/P(NN) 

Cl  •  VMB2XA1 

C2  ■  B1XA7 

CS  «  B1XB1XA5 

C4  «  C1-C2-C3 

TEMP  *  A5+B1 XA4-C4 

IF  (TEMP. EQ. ZERO)  GO  TO  15 

UU  •  U-(U*(C3+C2)+V*(B1*A1+B2*A7)>/TCMP 

VV  »  V*( 1+C4/TEMP) 

RETURN 

IF  TYPE'S  THE  QUADRATIC  IS  ZEROED 

IS  UU  «  ZERO 
VV  «  ZERO 
RETURN 
END 


SUBROUTINE  ZRPQLH  (NN,U,V,P.Q,RA,RB> 

SPECIFICATIONS  FOR  ARGUMENTS 


C 

C 

C 


INTEGER 

DOUBLE  PRECISION 
INTEOER 

DOUBLE  PRECISION 


NN 

P(NN),Q(NN),U,V»RA,RB 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 

1 

C 

DIVIDES  P  BY  THE  QUADRATIC  l.U.V 
PLACING  THE  QUOTIENT  IN  0  AND  THE 
REMAINDER  IN  A, B 


00042560 

00042570 

00042580 

00042590 

00042600 

00042610 

00042620 

00042630 

00042640 

00042650 

00042660 

00042670 

00042680 

.00042690 

00042/00 

00042710 

00042720 

00042730 

00042740 

000427S0 

00042760 

00042770 

00042780 

00042790 

00042800 

00042310 

00042820 

00042830 

00042840 

00042850 

00042860 

00042870 

00042880 

00042890 

00042900 

00042910 

00042920 

00042930 

00042940 

00042950 

00042960 

00042970 

00042980 

00042990 

00043000 

00043010 

00043020 

00043030 

00043040 

00043050 

00043060 

00043070 

00043080 

00043090 

00043100 

00043110 

00043120 

00043130 

00043140 

00043150 


L 


256 


RB  «  PCI) 

Qtl)  ■  RB 
RA  ■  P(2)-U*RB 
Q(2)  ™  RA 
DO  5  1*3. NN 

C  »  PCI)-U«RA-V*RB 
OCI)  «  C 
RB  *  RA 
RA  *  C 
CONTINUE 
RETURN 
END 


IMSL  ROUTINE  NAME  -  ZRPQLX 


FIRST  EXECUTABLE  STATEMENT 


COMPUTER 


-  IBM/DOUBLE 


LATEST  REVISION  -  JANUARY  1,  1978 

SUBROUTINE  ZRPQLI  (RA.Bl.C.SR.SX.RLR.RL!) 

SPECIFICATIONS  FOR  ARGUMENTS 
DOUBLE  PRECISION  RA. B1 ,C»SR . SI . RLR, RL I 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 
DOUBLE  PRECISION  RB.D.E, ZERO, ONE. TWO 

DATA  ZERO , ONE, TWO/ 0 . 0P0 , 1 . 0D0 , 2 . QDO/ 

CALCULATE  THE  ZEROS  OF  THE  QUADRATIC 
AM2MX2  ♦  B1MZ  ♦  C.  THE  QUADRATIC 
FORMULA,  MODIFIED  TO  AVOID 
OVERFLOW,  IS  USED  TO  FIND  THE 
LARGER  ZERO  IF  THE  ZEROS  ARE  REAL 
AND  BOTH  ZEROS  ARE  COMPLEX. 

THE  SMALLER  REAL  ZERO  IS  FOUND 
DIRECTLY  FROM  THE  PROOUCT  OF  THE 
ZEROS  C/A 

FIRST  EXECUTABLE  STATEMENT 

IF  (RA .HE. ZERO)  GO  TO  10 
SR  *  ZERO 

IF  (Bl.NE.ZERO)  SR  »  -C/Bl 
RLR  *  ZERO 
5  SI  *  ZERO 


00045160 
00043170 
00043180 
00043190 
00043200 
00043210 
00043220 
00043230 
00043240 
000432S0 
00043260 
00043270 
00043280 
0C043290 
00043300 
00045310 
00043320 
00043330 
■00043340 
00043350 
00043360 
00043370 
00043380 
OOC*  S390 
00043400 
00043410 
00043420 
00043430 
00043440 
00043450 
00043460 
00043470 
00043480 
00043490 
00043500 
00043510 
00043520 
00043530 
00043540 
00043550 
00043560 
00043570 
00043580 
00043590 
00  O':  3600 


;  ^ 

RL  I  •  ZERO 

00043610 

RETURN 

00043620 

1  vs 

10  IF  (C. HE. ZERO)  GO  TO  15 

00043630 

-  >* 

SR  »  ZERO 

00045640 

RLR  *  -Bl/RA 

00043650 

00  TO  5 

0004366  0 

V 

c 

COMPUTE  DISCRIMINANT  AVOIDING 

00043670 

t  V 

c 

OVERFLOW 

00043680 

15  RB  «  Bi/TWO 

IF  (OABS(RB) .LT. DABS(C) )  00  TO  20 
E  «  0NE-<RA/RB)«(C/R8) 

C  «  DSQRT(DABS(E) )*DABS(RB) 

00  TO  25 
20  E  5  RA 

IF  (C.LT.TERO)  E  *  -RA 


00043690 
0  00437  CO 
00043710 
00043720 
00043730 
00043740 
00043750 


257 


e  *  rbk(rb/oabs(c))-e 

D  ■  DSQRT( DABS( E) )*D59RT( DAB5(C) ) 

23  IF  (E.LT.ZERO)  00  TO  SO 

REAL  ZEROS 

IF  (RB.OE.ZERO)  0  *  -0 
RLR  *  (-RB+D1/RA 
SR  *  ZERO 

IF  (RLR. NE. ZERO)  SR  ■  <C/RLR)/RA 
00  TO  5 

COMPLEX  CONJUGATE  ZEROS 

30  SR  *  -RB/RA 
RLR  ■  SR 
SI  "  DABS( D/RA) 

RLX  •  -SI 

RETURN 

END 


SUBROUTINE  LEQ2C  (A. N, IA. 8.M. IB. I JOB.HA.WK. XER) 


C0MPLCXN16  A( IA. 1),B( II. 1). WAIN, 1), TEMPA, TEMPB.TEMPC 

DOUBLE  PRECISION  WK(N).TA(2),TB(2),TC(2> 

DOUBLE  PRECISION  AR.AI,BR.BX,CR,CI, DXNORM. XNORM, ZERO 

DOUBLE  PRECISION  ACC(2) 

EQUIVALENCE  (TA( I) .TEMPA) , (TBH ) .TEMPB) , CTCC 1), TEPPC) , 

H  (TA(l),AR),(TA(2),AX),(rB(l),BR),(TB(2),BX), 

X  (TC(1),CR),(TC(2),CI) 

DATA  ZERO/ 0.0 DO/ 

DATA  ITMAX/30/ 

FIRST  EXECUTABLE  STATEMENT 

IER  »  0 
N1  ■  N+I 
N2  «  N+2 

IF  C I  JOB  .EQ.  2)  00  TO  13 

SAVE  MATRIX  A 

DO  10  I  *  l.N 
DO  S  J  •  l.N 

WA(I.j:  •  A( I . J ) 

5  CONTINUE 

10  CONTINUE 

FACTOR  MATRIX  A 

CALL  LEQT1C  (NA.N.N.B.M.IB.l.NK.IER) 

IF  (IER  .NE.  0)  00  TO  9000 
IF  (I JOB  .EQ.  1)  00  TO  9003 

SAVE  THE  RIGHT  HAND  SIDES 

15  DO  65  J  ■  1 i M 

DO  20  I  *  l.N 

MA(I.Nl)  ■  B(I.J) 

20  CONTINUE 

OBTAIN  A  SOLUTION 

CALL  LEQT1C(WA. N. N. WA( 1 .Nl). l.N. 2. NX. IER) 

COMPUTE  THE  NORM  OF  THE  SOLUTION 

XNORM  *  ZERO 
DO  25  I  »  l.N 

TEMPA  ■  WAU.Nl) 

XNORM  •  DMAXUXN0RM.DABS(AR>.DABS(AI)> 

25  CONTINUE 

IF  (XNORM  .EQ.  ZERO)  00  TO  63 

COMPUTE  RESIDUALS 


00043760 

00045770 

00043760 

00045790 

00045600 

000456*0 

00045620 

00043830 

00043840 

00043830 

00043860 

00043870 

00043880 

00043890 

00043900 

00043910 

00043920 

00043730 

00043940 

00043950 

00043960 

00043970 

00043980 

00043990 

00044000 

00044010 

00044020 

00044030 

00044040 

00044050 

00044060 

00044070 

00044060 

00044090 

00044100 

00044110 

00044120 

00044130 

00044140 

00044150 

00044160 

00044170 

00044180 

00044190 

00044200 

00044210 

00044220 

00044230 

00044240 

00044250 

00044260 

00044270 

00044260 

00044290 

00044300 

00044310 

00044320 

00044330 

00044340 

00044350 
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6  . 


00  50  ITER  *  1  ,  UMAX 
DO  40  I  *  1 , N 
TEMPB  «  B( I , J  ) 

ACCCI )  *  0,000 
ACCt 2 )  «  0,000 
CALL  VXADD( BR, ACC) 

00  SO  JJ  *  I , N 
TEMPA  •  A( I , J  J  ) 

TEMPB  *  WA(JJ.Nl) 

CALL  VXMUL(-AR, 8R.ACC) 

CALL  VXMUUAI.BI.ACC) 

SO  CONTINUE 

CALL  VXSTO(ACC.CR) 

TEMPB  ■  BC I i J ) 

ACC C 1 )  >  O.ODO 
ACC(2)  •  0 ,003 
CALL  VXADDC  BI • ACC) 

00  S5  JJ  *  1  ,N 
TEMPA  »  A ( I , J J  ) 

TEMPB  WA( J J , N1 ) 

CALL  VXMUL<*AR, 81. ACC) 

CALL  VXMUL(-BR.Al.ACC) 

35  CONTINUE 

CALL  VX5T0C  ACC . Cl ) 

WAU.N2)  »  TEMPC 
40  CONTINUE 

CALL  LEQT1CCMA, N, N, HA< 1 ,N2) , l , N, 2,HK, IER) 
DXNQRM  «  ZERO 

:  UPDATE  THE  SOLUTION 

DO  45  I  •  l.N 

HA  < l ,  N 1  >  •  MA( I , N1 )  +WA( I . N2> 

TEMPA  »  MAC  I ■ N2  ) 

DXNCRM  »  DMAXK  DXNORMi DABS ( AR ) , DABSC AI ) ) 
45  CONTINUE 

IF  (XMGRM+OXMORM  ,  EQ .  XNORM)  00  TO  55 
50  CONTINUE 

IER  «  130 

^  STORE  THE  SOLUTION 

55  00  40  JK  «  1 , N 

B ( JK , J  )  «  HA( JK  >  N1 ) 

60  CONTINUE 

IF  (IER  .NE.  0)  QO  TO  4000 
65  CONTINUE 
00  TO  9005 
9000  CONTINUE 

CALL  UERTSTUER.6HLEQZC  ) 

9005  RETURN 
END 


SU3R0UTINE  LE9T1C  < A. N. IA.B.M, IB, I  JOB, WA. IER) 

SPECIFICATIONS  FOR  AROUMENTS 
INTEGER  N, IA,M, IB, I  JOB, IER 

C0MPIEXM16  A(IA,N),B(IB,M) 

DOUBLE  PRECISION  WA(N> 

SPECIFICATIONS  FOR  LOCAL  VARIABLES 

DOUBLE  PRECISION  P . Q.ZERO, ONE. T< 2) ,RN, BIO 

CQMPl EX» 16  SUM, TEMP 

INTEGER  I. J, JM1, IMl.K.IMAX, JFl.IW.Nl 


00044360 
00044370 
00044340 
00044390 
00044400 
00044410 
00044420 
00044430 
00046440 
00044450 
00044460 
00044470 
00044480 
00044490 
00044500 
00044510 
00044520 
00044530 
00044540 
00044550 
00044560 
00044570 
00044580 
00044590 
00044600 
00044610 
00044620 
00044630 
00044640 
00044650 
00044660 
00044670 
00044680 
00044690 
00044700 
00044710 
00044720 
00044730 
00044740 
00044750 
00044760 
00044770 
00044780 
00044790 
00044800 
00044810 
00044820 
00044830 
00044840 
00044850 
00044860 
00044870 
00044880 
Q0044890 
00044900 
00044910 
00044920 
0  00449  SO 
00044940 
00044950 
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EQUIVALENCE  CSUM.TU)) 

DATA  ZERO/O. 0D0/, ONE/1. DO/ 

INITIALIZATION 
FIRST  EXECUTASLE  STATEMENT 

TER  ■  0 

IF  (I JOB  . EQ.  2)  OO  TO  73 
RN  *  N 

c  ,  FIND  EQUILIBRATION  FACTORS 

OO  13  1*1. N 
BIO  ■  ZERO 
OO  9  J*1 <N 

TEMP  *  A(I.J) 

P  ■  CDAB3CTEMP) 

IF  (P  .OT.  BIO)  BIO  *  P 
9  CONTINUE 

IF  (BIO  .EQ.  ZERO)  OO  TO  103 
MAC  I)  •  ONE/ BIO 
10  CONTINUE 

C  L-U  DECOMPOSITION 

00  70  J  *  1 > N 
JM1  ■  J-l 

IF  (JM1  .IT.  1)  00  TO  23 

C  COMPUTE  U(I,J>,  1*1,..., J-l 

DO  20  1*1. JM1 
SUM  •  ACI.J) 

1M1  •  1-1 

IF  ( IM1  .LT.  1)  00  TO  20 
DO  19  K*1 , IM1 

SUM  «  SUM-At I ,K)HA(K, J) 

19  CONTINUE 

A( I , J  )  «  SUM 

20  CONTINUE 

29  P  •  ZERO 

C  COMPUTE  U(J,J>  AND  L(I,J),  I-J+l, 

DO  AS  I « J , N 
SUM  »  ACI.J) 

IF  ( JMl  .;T.  1)  00  TO  AO 
DO  39  X* 1 . JMl 

SUM  «  SUM- At  1 ,K)xA(K< J) 

35  CONTINUE 

ACI.J)  •  SUM 

40  Q  ■  WA(  I ) MCDABSt SUM) 

IF  <P  .OE.  V)  GO  TO  A3 
P  *  Q 
IMAX  »  I 
45  CONTINUE 

C  TEST  FOR  ALGORITHMIC  SINGULARITY 

Q  »  RN+P 

IF  (Q  .EQ.  RN)  GO  TO  105 
IF  (J  .EQ.  IMAX)  00  TO  60 

C  INTERCHANGE  RONS  J  AND  IMAX 

DO  50  K*1.N 

TEMP  *  A(IMAX.X) 

At IMAX, K)  •  A( J.K) 

A  C  J , K )  »  TEM® 

50  CONTINUE 

WA(IMAX)  •  WA{ J ) 

60  WA( J )  •  IMAX 

JP1  «  J  +  l 

IF  ( JP I  .CT.  N',  on  TO  70 


C  1344960 
0004A970 
0Q0449SO 
Q00AA990 
00QA900Q 
OOOASOIO 
000AS020 
00045030 
00043040 
00043030 
00043060 
00043070 
00043080 
00043090 
00045100 
00045110 
00043120 
00045130 
00u45l40 
0004S150 
00045160 
00043170 
0004S1BO 
00043190 
00043200 
00045210 
00043220 
00045230 
00045240 
00045250 
00045260 
00043270 
00045280 
,00043290 
00045300 
00045310 
00045320 
00045330 
00045340 
00045350 
00045360 
00045370 
00049380 
00043390 
00045400 
00045410 
00045420 
00045430 
00045440 
00045450 
00045460 
00045470 
00045480 
00045490 
00045500 
00045510 
00045520 
0004  5f  SO 
00045540 
00045550 
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.  DIVIDE  BY  PIVOT  ELEMENT  U(J.J) 

00045540 

TEMP  •  A( J. J) 

00043570 

DO  IS  I  •  JPl.N 

0004SSI0 

A(I,J>  ■  ACI, Jl/TCMP 

00045310 

a 

CONTINUE 

00043600 

70 

CONTINUE 

0004 5610 

75 

IF 

C I  JOB  .EQ.  1)  00  TO  9099 

00045620 

00 

105  X  ■  I ,M 

00043650 

...  .  SOLVE  UX  •  Y  FOR  X 

000436 'i0 

IW  *  0 

00045630 

00  90  I  ■  1 , N 

00045660 

IMAX  t  NA( I ) 

00045670 

SUM  »  B( IMAX, K) 

00045610 

l< IMAX, X)  •  8(1. X) 

0OC4569Q 

IF  ( IW  .EQ.  01  00  TO  IS 

00043700 

im  -  1-1 

00045710 

00  10  4  •  IM.IMl 

00043720 

SUN  *  SUM-A(X,J)M(J,X) 

00043750 

00 

CONTINUE 

00045740 

00  TO  II 

00043730 

IS 

IF  (T(l)  .NE.  ZERO  .OR.  T(2>  .NE.  ZERO)  IH  ■  I 

00043760 

II 

8(1. X)  «  SUN 

00043770 

90 

CONTINUE 

00043710 

.  SOLVE  LY  «  1  FOR  Y 

00043790 

NX  •  NU 

00043100 

DO  100  IW  •  l.N 

00045110 

Z  •  Nl-IW 

00043120 

JP1  •  1*1 

00045350 

SUN  *  1(1. X) 

00045140 

IF  (JP1  .GT.  N)  00  TO  91 

00043130 

00  9S  J  *  JPl.N 

00045160 

SUM  «  SUM-A( I . J )■«( J . X) 

00043170 

95 

CONTINUE 

00045330 

98 

8(1. X)  »  SUN/ A( I . I ) 

00043890 

100 

CONTINUE 

00045900 

1  05 

CONTINUE 

00043910 

00 

TO  9005 

00045920 

ALGORITHMIC  SINGULARITY 

00045950 

105 

I  EH 

f  «  129 

00045940 

9000 

CONTINUE 

00045950 

PRINT  ERROR 

00045960 

CALI  UERTSTdER.IHLERTIC) 

00045970 

9005 

RETURN 

00045980 

END 

00045990 
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DEPARTMENT  OF  THE  A!R  FORCE 

AIR  FORCE  WRIGHT  AERONAUTICAL  LABORATORIES  lAFSC) 
WRiGHfRATTERSON  AIR  FORCE  BASE  Ohio  4S4336S43 


attnVf0  IMST  (513/255-7466)  1  May  1987 

\  «u»jtcT:  Correction  to  AEVAL  Technical  Reports,  AFWAL-TR-86-3034 
and  86-3035 

°!  ALL  ADDRESSES 

1.  Pleaaa  delete  the  second  paragraph  in  the  NOTICE  page  affixed  to  the 
inside  cover  of  AFWAL-TR-86-3034 ,  "Strength  Analysis  of  Laminated  and 
Metallic  Plates  Bolted  Together  by  Many  Fasteners"  and  AFWAL-TR-86-3035 , 
"Design  Guide  for  Bolted  Joints  In  Composite  Structures. " 

2.  Please  contact  the  undersigned  if  you  have  any  questions  regarding  this 
letter. 

G.  DOBEN  cc:  AFWAL/FIBRA 

Chief,  Scientific  4  Tech  Info  Gp  (V.  Venkayya) 

Information  Services  Branch 
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